scheme-interpreter-story/initial-work/t9.scm

(define t1 ((lambda (x) (+ x x)) 4))

(define reverse-subtract
  (lambda (x y) (- y x)))
(define t2 (reverse-subtract 7 10))

(define add4
  (let ((x 4))
    (lambda (y) (+ x y))))

(define t3 (add4 6))

(define main (begin (print t1)
		    (print t2)
		    (print t3)
		    (print "8 3 10?")))