main=interact$foldl(!)"ip6.arpa.".t.foldr(&)s ':'&s="":s c&(x:s)=(x++c:"."):s x!y=t(y++cycle"0.")++x t=take 8 s="":s
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page