(bind-func dsp:DSP (lambda (in time chan dat) (cond ((< chan 2) (fmsynth in time chan dat)) (else 0.0))))