fun newton(x:real,guess)=
	if (abs(x - guess*guess)<0.000001) then guess
	else (print(guess);print("\n");newton(x,0.5*(guess+x/guess)));
(* Il faut ensuite appeler la fonction en donnant une valeur initiale a guess, par exemple 1.0:
guess(x,1.0);*)