var s:array[0..999]of string;i,j:word;begin
repeat i:=i+1;readln(s[i]);for j:=1to i do if
chr(length(s[i]))+s[i]<chr(length(s[j]))+s[j]then
begin s[0]:=s[i];s[i]:=s[j];s[j]:=s[0]end
until eof;for i:=1to i do writeln(s[i])end.