j=32{FS=s=/:/?_:".";$0=$0}!s{for(i=NF;j;i--)for(k=(p=$i~c=":")?$(i+1)~c?j-gsub(c,t=substr($0,1,i),t)*4:j%4:1;k--;j--)s=s(p?0:$i)"."}$0=(FS?$4s$3s$2s$1".in-addr":s"ip6")".arpa"
Note that non-ascii characters in the above source code will be escaped (such as \x9f).