(bind-func frq_from_val (lambda (val:float) (clamp (dtof (pow 32.0 (+ (* (ftod val) 2.0) 1.0))) 0.0 22000.0)))