Program P1;
var fi,fo : text;
    i,n,x : longword;
    a,c,l : array[0..100000] of longword;

Procedure inserare(left,right : longword);
var mijl:longword;
begin
    mijl:=(left+right) div 2;
    if left=right then begin
                       c[right]:=a[i];
                       if right>x then x:=right;
                       l[i]:=right;
                       end
                  else begin
                       if (a[i]>c[mijl]) then inserare(mijl+1,right)
                                         else inserare(left,mijl);
                       end;
end;

begin
    assign(fi,'scmax.in'); reset(fi); readln(fi,n);
    assign(fo,'scmax.out'); rewrite(fo);  x:=0;

    for i:=1 to n do read(fi,a[i]);
    for i:=1 to n do inserare(1,x+1);

    writeln(fo,x);

    for i:=1 to x do write(fo,c[i],' ');
    close(fi); close(fo);
end.