#| BEGIN (Введите свое решение) |#
(define (iterative-improve good-enough? improve)
  (lambda (x)
    (if (good-enough? x (improve x))
        x
        ((iterative-improve good-enough? improve) (improve x)))))
#| END |#