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