Program sortare;
 var i,j,x,n:longint;
     a: array [1..500000] of longint;
     fi,fo:text;
     b1,b2: array [1..1 shl  17] of char;
begin
assign(fi,'algsort.in');
 assign(fo,'algsort.out');
settextbuf(fi,b1);
settextbuf(fo,b2);
 reset(fi);
  rewrite(fo);
readln(fi,n);
for i:=1 to n do read(fi,a[i]);
 for i:=2 to n do begin
  x:=a[i]; j:=i-1;
   while (a[j]>x) and (j>=1) do begin
                              a[j+1]:=a[j];
                              dec(j);
                              end;
   a[j+1]:=x;
   end;
 for i:=1 to n do write(fo,a[i]);
close(fo);
end.