(define-macro (playkrrollup pitch) `(let loop ((i 0)) (play (* i 1/10) 9 ,pitch (+ 50 (expt 4 i)) 1/16) (if (< i 3) (loop (+ i 1)))))