test.eval.input.18

(define x 1.23)

(let ((x 2))
  x)

((lambda (x) x) 3)

((lambda (y) x) 4)

(let ((x (+ x 1)))
  x)

(define list
  (lambda (x y z)
    (cons x (cons y (cons z (quote ()))))))

(((lambda (x y)
    (lambda (y z)
      (list x y z)))
  5 6)
 7 8)

((((lambda (x y z)
     (lambda (y u v)
       (lambda (z v w)
         (list x u v))))
   1 2 3)
  4 5 6)
 7 8 9)