;; trivial dsp routine with exposed freq param
(bind-func dsp:DSP
(let ((freql:SAMPLE 110.)
(freqr:SAMPLE 110.)
(oscl (osc_c 0.0))
(oscr (osc_c 0.0)))
(lambda (in time chan dat)
(if (= chan 0)
(oscl 0.2 freql)
(oscr 0.2 freqr)))))