var n,i,k,j,r:longint;
a:array[1..300000] of longint;
f,g:text;
procedure qs(st,dr:longint);
var b,tmp:longint;
begin
if  st>=dr then exit else
begin
b:=a[st]; k:=st;
for i:=st+1 to dr do
if a[i]<=b then
begin
k:=k+1;
tmp:=a[k];
a[k]:=a[i];
a[i]:=tmp;
end;
a[st]:=a[k];
a[k]:=b;
qs(st,k-1);
qs(k+1,dr);
end;
end;
begin
assign(f,'algsort.in');
reset(f);
readln(f,n);
for i:=1 to n do begin
read(f,a[i]);
end;
qs(1,n);
assign(g,'algsort.out');
 rewrite(g);
 for  i:=1 to n do
write(g,a[i],' ');
          close(g);

  close(f);


end.