29 lines
495 B
Scheme
29 lines
495 B
Scheme
;; feel free to uncomment and comment sections
|
|
(load-library 'example "simple.so")
|
|
|
|
(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 "(fact 5): ")
|
|
(display (fact 5))
|
|
(display "\n")
|
|
|
|
(display "(mod 75 7): ")
|
|
(display (mod 75 7))
|
|
(display "\n")
|
|
|
|
(display "(get-time): ")
|
|
(display (get-time))
|
|
(display "\n")
|
|
|
|
(exit)
|