;; here is a simple loop playback (define loop (lambda (beat dur) (play sampler 60 100 dur 0 0.5 (* 5.0 44100.0)) ;; 5 seconds in (callback (*metro* (+ beat (* .5 dur))) 'loop (+ beat dur) dur)))