(use gauche.net)((^`s(dotimes(\ 32)(format #t"~x."(mod(div`s(expt 16\))16)))(print'ip6.arpa.))inet-string->address(read-line))