var n,nr,i,j:longint;
    gs:boolean;
    a:array[1..500000] of longint;
    f,g:text;
begin
assign(f,'algsort.in'); reset(f);
assign(g,'algsort.out'); rewrite(g);
readln(f,n);
for i:=1 to n do
read(f,a[i]);

repeat
gs:=true;
for i:=1 to n-1 do
if a[i]>a[i+1] then
                begin
                 gs:=false;
                 nr:=a[i];
                 a[i]:=a[i+1];
                 a[i+1]:=nr;
                end;
until  gs;
for i:=1 to n do
write(g,a[i],' ');
close(f);
close(g);
end.