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