;set the allowed range for sinsoids to jump (bind-func set_range (lambda (n:float) (set! range n) (printf "range = %g\n" (ftod(range)))))