var a,b:array[1..100000] of longint;
    n:integer;

procedure citire;
var f:text;
    i:integer;
begin
assign(f,'scmax.in');reset(f);
readln(f,n);
for i:=1 to n do
  read(f,a[i]);
end;

procedure calcul;
var i,j,max,poz:integer;
    g:text;
begin
b[n]:=1;
poz:=n;
max:=1;
for i:=n-1 downto 1 do
  begin
  j:=i+1;
  while(a[i]>=a[j])and(j<=n) do
    j:=j+1;
  if j>n then b[i]:=1
  else b[i]:=b[j]+1;
  if b[i]>max then
    begin
    max:=b[i];
    poz:=i;
    end;
  end;
assign(g,'scmax.out');rewrite(g);
writeln(g,max);
max:=a[poz];write(g,max,' ');
for i:=poz+1 to n do
  if a[i]>max then
    begin
    max:=a[i];
    write(g,max,' ');
    end;
  close(g);
end;

begin
citire;
calcul;
end.