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.