program test;
var a,n,i,j,max,s,num : longint;
    m : array[1..1000] of string;
    l : array[1..1000] of integer;
    r : array[1..1000] of string;
begin
s := 1;
readln(n);
for i:=1 to n do
begin
    readln(m[i]);
    l[i] := length(m[i]);
end;

for i:=1 to n do
begin
    max := -999;
    for j:=1 to n do
    begin
        if (l[j] > max) then
        begin
            num := j;
            max := l[j];
        end;
    end;
    r[s] := m[num];
    l[num] := -1;
    inc(s);
end;

writeln('Sorted: ');
for i:=1 to s do writeln(r[i]);
end.