(bind-func stft_st_c
(lambda (r n k)
(let ((L (stft_c r n k))
(R (stft_c r n k))
(left:SComplex* (L.spectrum))
(right:SComplex* (R.spectrum))
(i 0))
(lambda (chan:i64 x)
(if (= chan 0) (L x) (R x))))))