(define test
(lambda (beat dur)
(playp 32 0 bass `(,@(R `((60 __ 60) (58 __ 60) (__ __ 55) (58 __ 55)) 4)
,@(R `((62 __ 62) (60 __ 62) (__ __ 57) (60 __ 57)) 2)
,@(R `((65 __ 65) (63 __ 60) (__ __ 65) (63 __ 60)) 2))
(cosr 80 20 2) 1/4)
(playp 32 0 lead 12 `(,@(R `(72 (__ __ 67) (63 __ 67) (__ __ 60) ,@(R __ 4)) 2)
,@(R `(70 (__ __ 69) (67 __ 69) (__ __ 62) ,@(R __ 4)) 1)
,(R `((69 __ 67) (65 __ 60) __ __) 2))
(cosr 80 20 2) (* 2.0 dur))
(callback (*metro* (+ beat (* .5 dur))) 'test (+ beat dur) dur)))