var s,nr,t:array[1..100000] of longint;
n,i,j,rez,poz,ind:longint;
ok:boolean;
f:text;
procedure citire;
begin
assign(f,'scmax.in');reset(f);
read(f,n);
for i:=1 to n do
    read(f,s[i]);
close(f);
end;
procedure afisare;
begin
assign(f,'scmax.out');rewrite(f);
writeln(f,nr[poz]); ind:=1;
while poz>0 do
      begin
        nr[ind]:=s[poz];
        poz:=t[poz];
        inc(ind);
      end;
for i:=ind-1 downto 1 do
    write(f,nr[i],' ');
close(f);
end;
begin
citire;
rez:=0; poz:=0;
for i:=1 to n do
    begin
    nr[i]:=1;
    t[i]:=0;
    for j:=1 to i-1 do
        if (nr[i]<nr[j]+1) and (s[j]<s[i]) then
                           begin
                             nr[i]:=nr[j]+1;
                             t[i]:=j;
                           end;
    if rez<nr[i] then
       begin
         rez:=nr[i];
         poz:=i;
       end;
    end;
afisare;
end.