set "Atan(x)=( r=x, t=((((r>>31|1)*r)-1077)>>31)+1, y=(r>>31)+1, y=10000000/(y*(r-((r-1)&((r-1)>>31)))+(1-y)*(r-((r+1)&((-1-r)>>31)))), t*(((r>>31|-r>>31&1)*90000-((y*100000+43205*y/2000*y/10000*y/5)/(((1000000000+7649*y/1000*y)+(584*y/50*y/10000*y/10000*y/10/2) )/100000) )*180*100/31416)/10)+(1-t)*((r*1000000+43205*r/100*r/1000*r)/(((1000000000+7649*r/10*r)+(584*r/10*r/100*r/1000*r/10))/100000)*180*100/314159) )"

set "atan2(x,y)=I0=((~-x>>31)&1)&((~x>>31)&1), $atan2=I0*(9000*((y>>31)-((-y)>>31)))+(1-I0)*(^!Atan(x):x=(1000*y)/x^!+18000*(-(x>>31))*(1+2*(y>>31)))"