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