#| BEGIN (Введите свое решение) |#
(define (cube-root x)
  (define (improve guess) 
    (/ (+ (/ x (* guess guess) ) 
          (* 2 guess)) 
       3))
  
  (define (good-enough? guess prev)
    (< (abs (- guess prev)) 0.001))
  
  (define (square-iter guess prev)
    (if (good-enough? guess prev)
        guess
        (square-iter (improve guess) guess)))
  
  (square-iter 1.0 10.0))

#| END |#