uses crt;
var f:text; n,i,j,t:longint; a:array[1..100000]of longint;

function denstr(n:longint):string;
begin  
   str(n,denstr);
end;

begin
clrscr;
   assign(f,'input.pas');reset(f);
      readln(f,n);
      for i:=1 to n do read(f,a[i]);
   close(f);
   assign(f,'output.pas');rewrite(f);
      for i:=1 to n do  
         for j:=1 to n do 
            if denstr(a[i])+denstr(a[j])>denstr(a[j])+denstr(a[i]) then 
               begin
                  t:=a[i]; a[i]:=a[j]; a[j]:=t;  
               end;
      for i:=1 to n do write(a[i]);
   close(f); 
end.