Network mask by nobsun

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