1 (defun iterative-improve (good-enough? improve)
2   (lambda (first-guess)
3     (labels (
4 	     (improve-iter (guess)
5 	       (let ((improved-guess (funcall improve guess)))
6 		 (if