BEGIN{FS=_}j=32{r=a[split($0,a,d=".")]d a[3]d a[2]d a[1]".in-addr"}/:/{s=_
for(i=NF;j;i--)if($i~c=":")for(k=(!(j%4)&&$(i+1)~c?j-gsub(c,t=substr($0,1,i),t)*4:0)+j%4;k--;j--)s=s"0."
else{s=s$i d;j--}r=s"ip6"}$0=r".arpa"