(define midi2frq (lambda (pitch) (if (<= pitch 0.0) 0.0 (* 440.0 (expt 2.0 (/ (- pitch 69.0) 12.0))))))