type date=record
i,j:longint
end;
type tabel=array[0..100000] of date;
type vector=array[1..100000] of longint;
var n,i,j,k,max,sol:longint;
    t:tabel;
    v:vector;
begin
assign(input,'scmax.in');
assign(output,'scmax.out');
reset(input);
rewrite(output);
read(n);
for i:=1 to n do begin
read(t[i].i);
max:=0;
for j:=1 to i-1 do
if (t[j].j>max) and (t[i].i>t[j].i) then max:=t[j].j;
t[i].j:=max+1;
if max>=sol then sol:=max+1 end;
writeln(sol);
i:=n; max:=sol;
while sol<>0 do begin
while t[i].j<>sol do dec(i);
v[sol]:=t[i].i;
dec(sol) end;
for i:=1 to max do write(v[i],' ');
close(input);
close(output);
end.