(begin
(define factorial (lambda (x)
(if (= x 0)
1
(* x (factorial (- x 1))))))
(factorial 3)
)
(begin
(define make-incrementer (lambda (inc)
(lambda (x) (+ x inc))))
(define increment5 (make-incrementer 5))
(increment5 3)
)