program letter;
var
  sz:array[0..100]of string;
  i,j,n,p:integer;
begin
  assign(input,'letter.in');
  assign(output,'letter.out');
  reset(input);
  rewrite(output);
  readln(n);
  for i:=1 to n do
    readln(sz[i]);
  for i:=1 to n-1 do
    for j:=i+1 to n do
    begin
      if sz[i,1]=sz[j,1] then begin
        if length(sz[i])>length(sz[j]) then begin
          sz[0]:=sz[i];
          sz[i]:=sz[j];
          sz[j]:=sz[0];
        end;
      end
      else begin
        if ord(sz[i,1])>ord(sz[j,1]) then begin
          sz[0]:=sz[i];
          sz[i]:=sz[j];
          sz[j]:=sz[0];
        end;
      end;
    end;
  for i:=1 to n do
    writeln(sz[i]);
  close(input);
  close(output);
end.