(bind-func stft_mc_c
(lambda (channels:i64 r n k)
(let ((fftchans:[float,float]** (alloc channels))
(spectrums:SComplex** (alloc channels))
(i 0))
(dotimes (i channels)
(let ((F (stft_c r n k)))
(pset! fftchans i F)
(pset! spectrums i (F.spectrum))))
(lambda (chan:i64 x)
((pref fftchans chan) x)))))