program scmax; uses math;
type vector1=array[0..100001] of longint;
var t,b,sol:vector1;
    n,i,j,v:longint;
    f1,f2:text;
function cauta(st,dr,x:longint):longint;
var m:longint;
begin
while st<=dr do begin
m:=(st+dr) div 2;
if sol[m]>=x then dr:=m-1 else st:=m+1;
end;
cauta:=st;
end;
begin
assign (f1,'scmax.in');
assign (f2,'scmax.out');
reset (f1);
rewrite (f2);
readln (f1,n);
for i:=1 to n do read (f1,t[i]);
sol[1]:=t[1]; b[1]:=1; v:=1;
for i:=2 to n do begin
j:=cauta(1,v,t[i]); sol[j]:=t[i];
b[i]:=j; v:=max(v,j);
end;
writeln (f2,v); j:=v;
for i:=n downto 1 do
if b[i]=v then begin sol[v]:=t[i]; v:=v-1; end;
for i:=1 to j do write (f2,sol[i],' ');
close (f1);
close (f2);
end.