(bind-func static tap_delay_mc_c
(lambda (nchan:i64 max_delay num_of_taps)
(let ((tap_delay_buf:[SAMPLE,SAMPLE]** (zalloc nchan))
(i:i64 0))
(dotimes (i nchan)
(pset! tap_delay_buf i (tap_delay_c max_delay num_of_taps)))
(lambda (chan x)
((pref tap_delay_buf chan) x)))))