(bind-func static hpf_mc_c
(lambda (nchan:i64)
(let ((hpf_buf:[SAMPLE,SAMPLE,SAMPLE,SAMPLE]** (zalloc nchan))
(i:i64 0))
(dotimes (i nchan) (pset! hpf_buf i (hpf_c)))
(lambda (chan in cutoff res)
((pref hpf_buf chan) in cutoff res)))))