var     f,g:text;
        v:array[-1..500000] of longint;
        n,i,j,x,i2:longint;
        bufin,bufout:array[1..65000] of byte;
begin
        assign(f,'algsort.in');
        assign(g,'algsort.out');
        reset(f);
        rewrite(g);
        settextbuf(f,bufin);
        settextbuf(g,bufout);
        readln(f,n);
        v[1]:=maxlongint;
        for i:=1 to n do begin
                read(f,x);
                j:=0;
                repeat inc(j) until (x>=v[j-1]) and (x<v[j]);
                for i2:=i downto j do v[i2+1]:=v[i2];
                v[j]:=x;
        end;
        for i:=1 to n do write(g,v[i],' ');
        close(g);
end.