var a,b,c:array[0..100000] of longint; f,g:text;  i,m,x,n,nr:longint;  
      
    function caut(x:longint):longint;  
    var rasp,st,dr,mij:longint;  
    begin  
        rasp:=m; st:=0; dr:=m;  
        while st<=dr do
               begin  
               mij:=(st+dr) shr 1;  
               if (c[mij]<x) and (c[mij+1]>=x) then
                            begin  
                            rasp:=mij;  
                            break;  
                            end  else  
               if c[mij+1]<x then  st:=mij+1  
                            else   dr:=mij-1;  
               end;  
    caut:=rasp;  
    end;  
     
   begin  
   assign(f,'scmax.in'); reset(f);  
   assign(g,'scmax.out'); rewrite(g);  
   read(f,n);     m:=1;  
   for i:=1 to n do  
   read(f,a[i]);  
   c[1]:=a[1]; b[1]:=1;  
   for i:=2 to n do
          begin  
          x:=caut(a[i]);  
          b[i]:=x+1;  
          c[x+1]:=a[i];  
          if m<x+1 then  
          m:=x+1;  
         end;  
    writeln(g,m);  
    nr:=0; c[0]:=maxlongint;  
    for i:=n downto 1 do  
      if (b[i]=m) and (a[i]<c[nr]) then 
            begin  
            inc(nr);  
            c[nr]:=a[i];  
            dec(m);  
            end;  
    for i:=nr downto 1 do  write(g,c[i],' ');  
    close(f); close(g);  
   end.