improve

The improve procedure (exercise 3.7, p. 64) is straightforward:
    (define improve
       (lambda (n)
          (+ 1 (/ 1 n))))