program sort;
var v:array[1..500000] of longint;
    aux,i,j,n:longint;
begin
assign(input,'algsort.in');
reset(input);
read(input,n);
for i:=1 to n do read(input,v[i]);
close(input);
for i:=n downto 2 do
    if v[i]>v[i-1] then begin
       j:=i;
       while (v[j]>v[j-1])and(j<=n) do begin
             aux:=v[j];
             v[j]:=v[j-1];
             v[j-1]:=aux;
             inc(j);
             end;
       end;
assign(output,'algsort.out');
rewrite(output);
for i:=n downto 1 do
    write(output,v[i],' ');
close(output);
end.