;; just for processing sampler (bind-func dsp1:DSP (let ((vol 1.0)) (lambda (in time chan dat) (* vol (sampler in time chan dat)))))