var     f,g:text;
        v:array[-1..500000] of longint;
        n,i,j,x:longint;
begin
        assign(f,'algsort.in');
        assign(g,'algsort.out');
        reset(f);
        rewrite(g);
        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]) and (x<v[j]);
                v[j]:=x;
        end;
        for i:=1 to n do write(g,v[i],' ');
        close(g);
end.