{for(;$2;printf"%.1s",$++i,sub(/./,e,$i))i=$0<$2}NF=1