(define (make-nf f)
  (lambda (x)
    (let ((fn (diff f 0.1))
    ((innerfunc x xn)
      (if (< (- x xn) 0.0001)
          xn
          (innerfunc (- x (/ (f x) (fn x))))
          ))))
    (innerfunc 0 x)))