Script started on Fri May 14 10:25:11 2010
mcscheme> scheme
Welcome to MzScheme v4.2.5 [3m], Copyright (c) 2004-2010 PLT Scheme Inc.
> (load "mcs.ss")
"mcscheme:, (mcscheme) to start, ^C to leave"
> (mcscheme)
mcscheme> 100
100
mcscheme> (+ 100 200)
300
mcscheme> (define fact (lambda (n) (if (< n 2) 1 (* n (fact (- n 1))))))
mcscheme> fact
#0=(LAMBDA (n) (if (< n 2) 1 (* n (fact (- n 1)))) ({{car
 . #<procedure:car>} {cdr . #<procedure:cdr>} {cons
 . #<procedure:cons>} {number? . #<procedure:number?>} {pair?
 . #<procedure:pair?>} {string? . #<procedure:string?>} {eq?
 . #<procedure:eq?>} {+ . #<procedure:+>} {- . #<procedure:->} {*
 . #<procedure:*>} {/ . #<procedure:/>} {= . #<procedure:=>} {<
 . #<procedure:<>} {> . #<procedure:>>} {print . #<procedure:print>}
 {eof . #<eof>} {fact . #0#}}))
mcscheme> (fact 8)
40320
mcscheme> (load "mcs_basics.ss")
mcscheme> (map add1 '(1 2 3 4 5))
(2 3 4 5 6)
mcscheme> (reverse '(1 2 3 4 5))
(5 4 3 2 1)