;; a loop (define loop (lambda (beat dur) (play sampler (random 48 72) 120 dur) (callback (*metro* (+ beat (* .5 dur))) 'loop (+ beat dur) dur)))