(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))))))