{for(;x=NF;s=s" "){for(p=p".";x;x--)sub($x~p?0:$x,s)sub(/ +$/,_);print}}