File standardInput readLines map(x,x=x asNumber;a:=402408;while(0<a=a/2|0,x=(a*4*1atan/2-x)cos)asString(0,6)println)