{for(a=0sub(FS=_,_)2;i++<NF;a=k*sub(k,_,a)a i+2)printf k=substr(a,1+$i,1)}