var v:array [1..500000] of int64;
    aux:int64;
    i, j, n:longint;
    buf1, buf2:array [1..500000] of char;
    ok:boolean;
    f, g:text;

begin
assign (f, 'algsort.in');
reset (f);
settextbuf (f, buf1);
assign (g, 'algsort.out');
rewrite (g);
settextbuf (g, buf2);

read (f, n);
for i := 1 to n do read (f, v[i]);

ok:= true;
while ok do
  begin
  ok:= false;
  for i := 1 to n-1 do
    begin
    if v[i]>v[i+1] then
      begin
      aux:=v[i]; v[i]:=v[i+1]; v[i+1]:=aux; ok:= true;
      end;
    end;
  end;

for i := 1 to n do write (g, v[i], ' ');
close (f);
close (g);
end.