program scmax;
const fi='scmax.in';
      fo='scmax.out';
var v,q,x,v2:array [0..100000] of longint;
f,g:text;
n,lq,i,aux:longint;
bufin,bufout:array[1..65000] of byte;

procedure ins(nr,st,dr:longint);
var mij:longint;
begin
if st=dr then
begin
   q[dr]:=nr;
   x[i]:=st;
end

   else


   begin
   mij:=(st+dr)div 2;
   if nr<=q[mij] then
     ins(nr,st,mij)
     else
     ins(nr,mij+1,dr);
   end;
end;
begin
assign(f,fi);
reset(f);
assign(g,fo);
rewrite(g);
settextbuf(f,bufin);
settextbuf(g,bufout);
read(f,n);
lq:=0;
for i:=1 to n do
   begin
   read(f,v[i]);
   if v[i]>q[lq] then
      begin
      inc(lq);
      q[lq]:=v[i];
      x[i]:=lq;
      end
      else
   ins(v[i],1,lq);
   end;
writeln(g,lq);
aux:=lq;
for i:=n downto 1 do
   begin
   if x[i]=lq then
       begin
       v2[lq]:=v[i];
       dec(lq);
       end;
   end;

  for i:=1 to aux do
      write(g,v2[i],' ');




   close(f);
   close(g);
   end.