p;c(a,b){p=strlen(b)-strlen(a)?:strcmp(b,a);}i,s[500][5];main(){for(;gets(s+i)?qsort(s,++i,20,c):puts(--i+s)*i;);}