restart;
f:=cos(x)-x;
plot(f,x=0..Pi);
df:=diff(f,x);
phi:=unapply(x-f/df,x);
phi(2);
x1:=0.75;
x2:=phi(x1);
x3:=phi(x2);
x4:=phi(x3);
x5:=phi(x4);
Digits:=80;
x5:=phi(x4);
x6:=phi(x5);
x7:=phi(x6);
x8:=phi(x7);