/trunk/Examples/mzscheme/multimap/example.scm

 1;; run with mzscheme -r example.scm
 2
 3(load-extension "example.so")
 4
 5; Call the GCD function
 6
 7(define x 42)
 8(define y 105)
 9(define g (gcd x y))
10
11(display "The gcd of ")
12(display x)
13(display " and ")
14(display y)
15(display " is ")
16(display g)
17(newline)
18
19;  Call the gcdmain() function
20(gcdmain #("gcdmain" "42" "105"))
21
22
23(display (count "Hello World" #\l))
24(newline)
25
26(display (capitalize "hello world"))
27(newline)