rqnoj.574.biggist;

}

program biggist;

var

s:array[1..20]of string;

r:string;

i,j,n:longint;

begin

readln(n);

for i:=1 to n do begin read(j); str(j,s[i]); end;

for i:=1 to n-1 do begin

for j:=i+1 to n do if s[j]>s[i] then begin

r:=s[i];

s[i]:=s[j];

s[j]:=r;

end;

end;

for i:=1 to n do write(s[i]); writeln;

readln;

end.