m2   scheme

(define m2
  (lambda (beat ps ds)
    (play fmsynth (car ps) (cosr 65 25 5/3) (* .6 (car ds)) 0.5 10.0)
    (play fmsynth (+ 7 (car ps)) (cosr 60 20 7/3) (* .6 (car ds)) 0.5 10.0)
    (play fmsynth (+ 12 (car ps)) (cosr 60 15 2/3) (* .6 (car ds)) 0.5 10.0)
    (callback (*metro* (+ beat (* .5 (car ds)))) 'm2 (+ beat (car ds))
              (if (= (modulo beat 36) 0)
                  (jumble ps)
                  (rotate ps -1))
              (rotate ds -1))))