;; make some noise
(define test
(lambda (beat dur)
(play sampler 72 120 10.0 0 0.2)
(play 2 sampler 77 120 10.0 0 0.8)
(play 4 sampler 68 125 8.0 0 0.6)
(play 7 sampler 75 120 12.0 0 0.4)
(play 10 sampler 70 125 11.0 0 0.55)
(play 12 sampler 67 130 7.0 0 0.45)
(callback (*metro* (+ beat (* .5 dur))) 'test (+ beat dur) dur)))