(bind-func dsp:DSP (lambda (in time chan dat) (cond ((< chan 2) (+ (* 1.0 (lead in time chan dat)) (* 1.0 (bass in time chan dat)))) (else 0.0))))