Solution to SICP Exercise 1.46

Solution to Exercise 1.46:

(define (iterative-improve good-enough? improve)
(define (iter initial-guess)
(if (good-enough? initial-guess)
initial-guess
(iter (improve initial-guess))))
iter)