(bind-func static delay_st_c
  (lambda (d1 d2)
    (let ((dlines:[SAMPLE,SAMPLE,SAMPLE,SAMPLE]** (alloc 2))
          (i:i64 0))
      (pset! dlines 0 (delay_c d1))
      (pset! dlines 1 (delay_c d2))
      (lambda (chan:i64 x wet feedback)
        ((pref dlines chan) x wet feedback)))))