program fsdds;
var f,g:text;
n,i,nr,j,aux:longint;
v,q,p,rez:array[1..100000] of longint;
begin
assign(f,'scmax.in'); reset(f);
assign(g,'scmax.out'); rewrite(g);
readln(f,n);
   for i:=1 to n do
      read(f,v[i]);
   nr:=0;
   for i:=1 to n do
      begin
         if v[i]>q[nr] then
            begin
            nr:=nr+1;
            q[nr]:=v[i];
            p[i]:=nr;
            end
            else
            begin
              for j:=1 to nr do
                begin
                  if q[j]>v[i] then
                     begin
                     q[j]:=v[i];
                     p[i]:=j;
                     break;
                     end;
                end;
            end;
      end;
      writeln(g,nr);
      aux:=nr;
       for i:=n downto 1 do
         begin
            if p[i]=aux then
               begin
               rez[aux]:=v[i];
               aux:=aux-1;
               end;
         end;
         for i:=1 to nr do
           write(g,rez[i],' ');
close(f);
close(g);
end.