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