Использование цикла While и FindRoot

Question

Я хочу использовать цикл While и функцию FindRoot для оценки корня.

`xroot = FindRoot[x Cos[x] == 0, {x, 2}];
itercnt == 0;
iterlimit == 10000;
While[f[x] > 10^{-5} && itercnt < iterlimit,
    x - f[x]/f'[x]; itercnt++]`

Я могу сделать это один раз, но я хочу сделать любое количество раз.Поэтому, пожалуйста, дайте конструктивную критику моего кода и того, как он может быть проще.