{for(i=850;--i;FS?c[sprintf(f="%c",i)]=i:$i=sprintf(f,c[a[i]]+(4-c[$i]%8)%4));split($0,a,FS=OFS=_)}/]|U/