trunk/Examples/mzscheme/simple/example.scm

;; run with mzscheme -r example.scm

(load-extension "example.so")

(display (get-time))

(printf "My-variable = ~a~n" (my-variable))

(let loop ((i 0))
  (when (< i 14) (begin (display i)
			(display " factorial is ")
			(display (fact i))
			(newline)
			(loop (+ i 1)))))

(let loop ((i 1))
  (when (< i 250)
	(begin
	  (let loopi ((j 1))
	    (when (< j 250) (begin (my-variable (+ (my-variable) (mod i j)))
				   (loopi (+ j 1)))))
	  (loop (+ i 1)))))

(printf "My-variable = ~a~n" (my-variable))