var p:array[0..10000] of integer;
var i,l,m,n,r,t,u:integer;
begin {assign(input,'inp.1');reset(input);}
read(n);p[0]:=0;u:=0;
for i:=1 to n do begin 
l:=1; r:=u;read(t);
repeat 
    m:=(l+r)div 2;if t<p[m]  then r:=m-1 else l:=m+1
  until l>r;
p[l]:=t;if l>u then u:=l;
end;
write(u);
end.