(bind-func dsp:DSP (let ((out:float 0.0) (stream (pure_dsp))) (lambda (in time chan dat) (if (= chan 0) (begin (set! out (scar stream)) (set! stream (scdr stream)))) out)))