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