(bind-func static tri_mc_c (lambda (mod) (let ((osc (tri_c mod)) (out 0.0)) (lambda (chan amp frq) (if (= chan 0) (set! out (osc amp frq))) out))))