;; run with './simple test-simple.scm'
;; feel free to uncomment and comment sections

(display "(example-My-variable): ")
(display (example-My-variable))
(display "\n")

(display "(example-My-variable 3.141259): ")
(display (example-My-variable 3.141259))
(display "\n")

(display "(example-My-variable): ")
(display (example-My-variable))
(display "\n")

(display "(example-My-variable 'a): ")
;;(display (example-My-variable 'a))
(display "\n")

(display "(example-My-variable 1.5 'b): ")
(display (example-My-variable 1.5 'b))
(display "\n")

(display "(example-fact 5): ")
(display (example-fact 5))
(display "\n")

(display "(example-fact 'a): ")
;;(display (example-fact 'a))
(display "\n")

(display "(example-mod 75 7): ")
(display (example-mod 75 7))
(display "\n")

(display "(example-my-mod 75 7): ")
(display (example-my-mod 75 7))
(display "\n")


(display "(example-get-time): ")
(display (example-get-time))
(display "\n")