(bind-func static chorus_mc_c
(lambda (channels:i64 phase)
(let ((dlines:[SAMPLE,SAMPLE,SAMPLE,SAMPLE,SAMPLE]** (alloc channels))
(i:i64 0))
(dotimes (i channels) (pset! dlines i (chorus_c phase)))
(lambda (chan:i64 x in out fb)
(let ((f (pref dlines chan)))
(f x in out fb))))))