1 ;; run with mzscheme -r example.scm
3 (load-extension "example.so")
7 (printf "My-variable = ~a~n" (my-variable))
10 (when (< i 14) (begin (display i)
11 (display " factorial is ")
20 (when (< j 250) (begin (my-variable (+ (my-variable) (mod i j)))
24 (printf "My-variable = ~a~n" (my-variable))