var
 v,a,x,c:array[1..20000] of longint;
 f,g:text;
 n,i,j,lmax:longint;
begin
assign(f,'scmax.in');assign(g,'scmax.out');
reset(f);rewrite(g);
read(f,n);
for i:=1 to n do
  begin
  read(f,v[i]);
    for j:=1 to n do
    begin
    if x[j]=0 then
      begin
      x[j]:=v[i];
      a[i]:=j;
      inc(lmax);
      break;
      end
    else
    if v[i]<=x[j] then
      begin
      x[j]:=v[i];
      a[i]:=j;
      break;
      end;
    end;
  end;
j:=lmax;
for i:=n downto 1 do
  begin
  if a[i]=lmax then
    begin
    c[lmax]:=v[i];
    dec(lmax);
    end;
  if lmax=0 then break;
  end;

writeln(g,j);
for i:=1 to j do
 write(g,c[i],' ');
close(f);close(g);
end.