;; now start another temporal recursion which plays our new saw_synth
;; instrument
(define loop2
(lambda (beat dur)
(let ((pitch (random '(55 36 63 70 72 72 75))))
(play-note (*metro* beat) saw_synth pitch
(if (= pitch 36) 105 95) 600)
(callback (*metro* (+ beat (* dur .5))) 'loop2
(+ beat dur)
dur))))