(defun raiz(p x &optional (i 0))
  (cond
    ((zerop (avaliar p x)) x)
    ((equal i 500) 'FDX)
    (T (raiz p (- x (/ (avaliar p x) (avaliar (derivaPolinomio p) x))) (1+ i)))
  )
)