(load "util.scm")
(load "misc/sicp-compiler.scm")

(display "\nex-5.39\n")

(let ((x 3) (y 4))
  (lambda (a b c d e)
    (let ((y (* a b x))
          (z (+ c d x)))
      (* x y z))))

(display "\nex-5.40\n")


; (display "\nex-5.41\n")
; (display "\nex-5.42\n")