((lambda (x y)
   ((lambda (a b c) c)
    (+ x 2)
    (* y 3)
    c))
 4 5)

((lambda (x)
   (let ([y 3])
     (lambda (x)(+ x 3))))
 3)

((lambda (x)
   ((let ([x (lambda (x) (+ x 1))])
      x)
    x))
 3)

((lambda (f)
   (f '((7 8) (9 10) (11 12))))
 (lambda (x)
   ((lambda (f)
      (f (cdr x)))
    car)))

((lambda (x)
   ((lambda (x)
      ((lambda (x) (+ x 1))
       (+ x 1)))
    (+ x 1)))
 7)


(define list-recur
  (lambda (init f)
    (letrec ([g (lambda (ls)
		  (if (null? ls)
		      init
		      (f (car ls) (g (cdr ls)))))])
      g)))