(bind-func dsp:DSP 1000000 (let ((t 0)) (lambda (in time chan dat) (if (= t 0) (set! t time)) (if (< chan 2) (+ (metrosynth in time chan dat) 0.0) 0.0))))