File standardInput readLines map(x,x=x asNumber;a:=402408;while(0<a=a/2|0,x=if(a%2>0,x sin,x cos))asString(0,6)println)