program alex;
var f:text;
    a:array[1..500000]of longint;
    n,i:longint;
procedure sort(li,ls:longint);
var i,j,m,z:longint;
begin
i:=li;
j:=ls;
m:=(i+j)div 2;
while(i<=j)do
      begin
      while(a[i]<m)do
            i:=i+1;
      while(m<a[i])do
            j:=j-1;
      if(i<=j)then begin
                   z:=a[i];
                   a[i]:=a[j];
                   a[j]:=z;
                   i:=i+1;
                   j:=j-1;
                   end;
      end;
if(li<j)then sort(li,j);
if(i<ls)then sort(i,ls);
end;
begin
assign(f,'algsort.in');reset(f);
readln(f,n);
for i:=1 to n do
    read(f,a[i]);
close(f);
sort(1,n);
assign(f,'algsort.out');rewrite(f);
for i:=1 to n do
    write(f,a[i]);
close(f);
end.