;set the speed of playback (bind-func set_speed (lambda (n:float) (set! speed n) (set! beta (/ (+ 1.0 (* 2.0 n)) (* 3.0 n))) (printf "Playback Speed=%g Beta = %g\n" (ftod(speed))(ftod(beta)))))