(bind-func static bpfbq_mc_c
(lambda (channels:i64)
(let ((lines:[SAMPLE,SAMPLE,SAMPLE,SAMPLE]** (alloc channels))
(i:i64 0))
(dotimes (i channels) (pset! lines i (bpfbq_c)))
(lambda (chan:i64 x freq bandwidth)
(let ((f (pref lines chan)))
(f x freq bandwidth))))))