;; make some noise
(define test
(lambda (beat dur)
(play sampler
(pc:random 65 84 (pc:scale 5 'mixolydian))
100
(+ 4.0 (random 6.0)) 0 (random))
(callback (*metro* (+ beat (* .5 dur))) 'test (+ beat dur)
(random '(1 2 3 4 5)))))