(bind-func dsp:DSP
(let ((F (stft_st_c 64 512 512))
(left:SComplex* (F.left))
(right:SComplex* (F.right)))
(lambda (in time chan dat)
(cond ((< chan 2)
(F chan
(+ (* 1.0 (fmsynth in time chan dat))
0.0)))
(else 0.0)))))