;; make some noise
(define t1
(lambda (beat dur)
(play fmsynth (random 40 70) 80 (* 1.0 dur))
(play synth (random 60 80) 80 (* 1.0 dur))
(play pad (random 30 50) 80 (* 1.0 dur))
(callback (*metro* (+ beat (* .5 dur))) 't1 (+ beat dur) dur)))