;set the beta value in sPL (bind-func set_beta (lambda (n:float) (set! beta n) (printf "Beta = %f\n" (ftod(beta)))))