var     i,n,lm:longint;
        f1,f2:text;
        a,b,m:array[0..100000]of longint;


procedure scmax(p,l:longint);
var     i:longint;
begin
  if l>lm then
    begin
      lm:=l;
      for i:=1 to lm do
        b[i]:=m[i];
    end;
  for i:=p to n do
    begin
      if a[i]>m[l] then
        begin
          m[l+1]:=a[i];
          scmax(i,l+1);
        end;
    end;
end;

begin
  assign(f1,'scmax.in');
  reset(f1);
  assign(f2,'scmax.out');
  rewrite(f2);
  readln(f1,n);
  for i:=1 to n do
    read(f1,a[i]);

  lm:=0;
  scmax(1,0);

  writeln(f2,lm);
  for i:=1 to lm do
    write(f2,b[i],' ');

  close(f1);
  close(f2);
end.