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
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page