(define l2
(lambda (beat pitch dur)
(if (> pitch 100) (set! dur 4.))
(play fmsynth pitch 100 .2 .5 10.)
(callback (*metro* (+ beat (* .5 dur))) 'l2 (+ beat dur)
(if (> pitch 100) 60 (pc:relative pitch 1 (pc:scale root 'aeolian)))
1/6)))