program sub;
var fi,fo:text;
a,b,c:array[1..100000] of longint;
 i,n,j:longint;
begin
assign(fi,'scmax.in');reset(fi);readln(fi,n);
assign(fo,'scmax.out');rewrite(fo);
for i:=1 to n do read(fi,a[i]);
 b[n]:=1;c[n]:=0;
 for i:=n-1 downto 1 do begin
 b[i]:=1;c[i]:=0;
 for j:=i+1 to n do
                        if (a[i]<a[j])and(b[i]<b[j]+1) then begin
                                                        b[i]:=b[j]+1;
                                                        c[i]:=j;
                                                        end;
                             end;
 j:=1;
 for i:=2 to n do
                if b[i]>b[j] then j:=i;
                writeln(fo,b[j]);
 while c[j]<>0 do begin
                  write(fo,a[j],' ');
                  j:=c[j];
                  end;
                  write(fo,a[j]);close(fi);close(fo);
 end.