{for(;x=NF;s=s" "){for(p=p".";x;x--)sub($x~p?0:$x,s)sub(/ +$/,_);print}}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page