TOL = 1E-6;
deff("y = fn(x)","y =  x - 0.2*sin(x) - 0.5") 
deff("y = dfdx(x)", "y = 1 - 0.2*cos(x)")  
x = input("valeur initiale: ");
while abs( fn(x)) > TOL
    x =  x - fn(x)/dfdx(x);
end
mprintf("racine: %14.8f\tvaleur de la fonction:%14.8f\n",x,fn(x));