main=interact$('/':).show.(32-).h 0.foldl g 0.take 4.iterate f.f.(,)"".('.':);h a n|odd n=a|1<2=h(a+1)$div n 2;g n(x,_)=n*256+read x;f(_,_:x)=span('.'/=)x