(define (wortel x)
  (define (goedgenoeg? gok)
    (< (abs (- (kwadraat gok) x)) 0.001))
  (define (verbeter gok)
    (/ 2 (+ gok (/ x gok))))
  (define (probeer gok)
    (if (goedgenoeg? gok)
        gok
        (probeer (verbeter gok))))
  (probeer 1.0))