;; feel free to uncomment and comment sections
(load-library 'example "simple.so")
(declare (uses example))

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

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

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

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

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

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

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

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

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


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

(exit)