function binary(y) local b=2,10 local x,e=frexp(y) local s="" --x,e=y,0 for i=1,40 do local d=floor(x) write(d,s) x=b*(x-d) end write(" x 2^",e,"\n") end binary(4*rad(atan(1))) while 1 do local x=read() if x==nil then break end binary(tonumber(x)) end