Урок 1.8 от SICP. Кажется, что процедуры работают, но когда я запускаю их вместе, я получаю «тайм-аут компьютера». Кажется, есть петля, но я не могу ее найти [closed]

Предполагается найти кубический корень с точностью до 0,001.

(define (good-enough? guess x)
  (< (abs (- (cubesquare guess) x)) 0.001))
(define (improve guess x)  (/
                           (+ (/ x (cubesquare guess))
                           (+ guess guess))
                           3))
(define (findcuberoot guess x) 
  (if (good-enough? guess x) guess 
      (findcuberoot (improve guess x) x)))
  
(findcuberoot 2 8)