{for(;A[asort(A,B)]=$0;)sub(/./,e);for(;$0=B[++i];)print}