(define l1 (lambda (beat dur cell) (play fmsynth (car cell) (cosr 90 10 2) (* dur .2)) ; 0.1 10.0) (callback (*metro* (+ beat (* dur .5))) 'l1 (+ beat dur) dur (rotate cell 1))))