{while($2=c=substr($1,1,1))$(index($sub(c,OFS=_,$1),c)2)=c c}1