(let ((square (lambda (x) (* x x)))
      (double (lambda (x) (+ x x))))
   (let ((a (square 10))
         (b (square 20))
         (c (square 30)))
	  (+ a b c)))
(let ((square (lambda (x) (* x x)))
      (double (lambda (x) (+ x x))))
   (let ((a (square 10))
         (b (square 20))
         (c (square 30)))
	  (+ a b c)))