program scmax;
type vector=array[1..100000]of longint;
var v,l:vector;  f,g:text;
    n,i,k,max,t:longint;
begin
    assign(f,'scmax.in');reset(f);
    assign(g,'scmax.out');rewrite(g);
    readln(f,n);
     for i:=1 to n do readln(f,v[i]);
      l[n]:=1;
      for k:=n-1 downto 1 do begin
       max:=0;
        for i:=k+1 to n do
         if (v[i]>v[k])and(l[i]>max) then max:=l[i];
        l[k]:=1+max;
         end;
         max:=l[1];
         t:=1;
          for k:=1 to n do
           if l[k]>max then begin
            max:=l[k];
            t:=k;end;
          writeln(g,max);
          write(g,v[t],' ');
            for i:=t+1 to n do
             if (v[i]>v[t])and(l[i]=max-1) then begin
              write(g,v[i],' ');
              max:=max-1;
              end;
              close(f);close(g);
end.