;; mod is phase (0.0-1.0) (bind-func blpulse_c (lambda (mod) (blpulse_c:[[float,float,float,float]*,float,i1]* mod 0)))