(define midi-loop (lambda (beat dur) (mplay *mout* (random (list 60 60 60 67 70 74 75)) (random 60 80) dur 0) (callback (*metro* (+ beat (* .5 dur))) 'midi-loop (+ beat dur) dur)))