#| Для этого упражнения нет проверок.
Любое решение будет считаться успешным ответом. |#
(define (new-if predicate then-clause else-clause)
        (cond (predicate then-clause)
              (else else-clause)))

(define (sqrt-iter guess x)
        (new-if (good-enough? guess x)
                guess
                (sqrt-iter (improve guess x)
                           x)))
; Так как new-if является процедурой (в отличие от встроенного в интерпретатор if, который является особой формой), вычисления в нем происходят в аппликативной форме, поэтому программа войдет в вечный цикл, пытаясь вычислить sqrt-iter