Chez Scheme Transcript [Fri Mar 11 13:42:09 2011]
> ((lambda (x y) (cons x y)) 3 '())
(3)
> (((lambda (x) (lambda (y) (cons x y))) 3) '())
(3)
> ((lambda l (cons (car l) (cdr l))) '(3 4))
((3 4))
> ((lambda l (cons (car l) (cdr l))) '(3) '(4 5))
((3) (4 5))
> ((lambda l (cons (car l) (cdr l))) '(3) '(4 5) '(6 7))
((3) (4 5) (6 7))
> ((lambda l l) '3)
(3)
> ((lambda l l) '3 '4)
(3 4)
> ((lambda l l) '3 '4 '5)
(3 4 5)
> ((lambda (x y . z) (list x y z)) 3)

Error: incorrect number of arguments to #<procedure>.
Type (debug) to enter the debugger.
> ((lambda (x y . z) (list x y z)) 3 4)
(3 4 ())
> ((lambda (x y . z) (list x y z)) 3 4 5)
(3 4 (5))
> ((lambda (x y . z) (list x y z)) 3 4 5 6)
(3 4 (5 6))
> (define mystery
    (lambda 'x 'x))
> (mystery 1)

Error: incorrect number of arguments to #<procedure mystery>.
Type (debug) to enter the debugger.
> (mystery 1 2)

Error: attempt to apply non-procedure 1.
Type (debug) to enter the debugger.
> (mystery + 2)
2
> 'x
x
> (quote x)
x
> (define mystery
    (lambda (quote x) 
      (quote x)))
> (mystery + 3)
3
> (define mystery
    (lambda (foo x)
      (quote x)))
> (mystery 3)

Error: incorrect number of arguments to #<procedure mystery>.
Type (debug) to enter the debugger.
> (mystery + 3)
x
> (+)
0
> (*)
1
> (define mystery
    (lambda (if x)
      (if x)))
> (mystery + 3)
3
> (if #t 1 2)
1
> (load "goo.ss")

Error in read: unexpected end-of-file reading list at line 59, char 1 of goo.ss.
Type (debug) to enter the debugger.
> (load "goo.ss")
> (pythagorasLambda 3 4)

Error: incorrect number of arguments to #<procedure>.
Type (debug) to enter the debugger.
> (load "goo.ss")

Error in read: unexpected end-of-file reading list at line 60, char 3 of goo.ss.
Type (debug) to enter the debugger.
> (load "goo.ss")

Error in read: unexpected end-of-file reading list at line 60, char 3 of goo.ss.
Type (debug) to enter the debugger.
> (load "goo.ss")
> (pythagorasLambda 3 4)

Error: incorrect number of arguments to #<procedure>.
Type (debug) to enter the debugger.
> (load "goo.ss")
> (pythagorasLambda 3 4)
(3 4)
> (load "goo.ss")
> (pythagorasLambda 3 4)
(9 3 4)
> (load "goo.ss")
> (pythagorasLambda 3 4)
(9 16 3 4)
> (load "goo.ss")
> (pythagorasLambda 3 4)
(5 9 16 3 4)
> (load "goo.ss")
> (pythagorasLambda 3 4)
5
> (load "goo.ss")
> (pythagorasLambda 3 4)
5
> (let ([foo (lambda (n) n)]) (foo 3))
3
> (load "goo.ss")
> (fac 5)

Error: variable fact is not bound.
Type (debug) to enter the debugger.
> (transcript-off)