(define approximate-golden-ratio
     (lambda (tolerance)

       (define find-approximation-from
         (lambda (starting-point)
           (if (good-enough? starting-point)
               starting-point
               (find-approximation-from (improve starting-point)))))

       (define good-enough?
         (lambda (approximation) ... )

       (find-approximation-from 1)))