(define (iterative-improve close-enough? improve)
(define (iteration guess)
    (let ((next (improve guess)))
         (if (close-enough? guess next)
             next
             (iteration next))))
  iteration)