1 (defun iterative-improve (good-enough? improve) 2 (lambda (first-guess) 3 (labels ( 4 (improve-iter (guess) 5