do 58;pull x y;y=x*x+y*y;do 9;x=x/2+y/x/2;end;say format(x,,2);end