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