1 (define (sqrt x)
2   (sqrt-iter 1.0 x))
3 (define (sqrt-iter guess x)
4   (if (good-enough? guess x)
5       guess
6       (sqrt-iter (improve guess x) x)))