;; hann (bind-func static hann_mc_c (lambda () (let ((h (hann_c)) (mem 0.0)) (lambda (chan:i64 width:i64) (if (= chan 0) (set! mem (h width))) mem))))