(define test808
(lambda (beat dur)
(play sampler
(case (modulo beat 4)
((0 1 2 3) 59)
((1/2 3/2 5/2 7/2) 51)
(else -1))
160 .1)
(play sampler (random '(60 58 55 64)) (cosr 120 40 7/3) .01)
(callback (*metro* (+ beat (* .5 dur))) 'test808 (+ beat dur) dur)))