(bind-func static frq2midi (lambda (freq:SAMPLE) (if (<= freq 0.0) 0.0 (+ (* 12.0 (log2 (/ freq 440.0))) 69.0))))