(bind-func creverb_st_c
(lambda (pathl pathr lgth)
(let ((convl (creverb_c pathl lgth))
(convr (creverb_c pathr lgth)))
(lambda (chan:i64 in dry wet)
(cond ((= chan 0)
(convl in dry wet))
((= chan 1)
(convr in dry wet))
(else 0.0))))))