program scm;

var l,v:array[1..100001] of longint;
    fi,fo:text;
    n,i,max,mx:longint;



  procedure scm;
  var i,j:longint;
  begin
    l[n]:=1;
    max:=0;
      for i:=n-1 downto 1 do
        begin
          mx:=0;
            for j:=i+1 to n do
              if v[j]>v[i] then
                if l[j]>mx then mx:=l[j];
            l[i]:=mx+1;
            if l[i]>max then
              max:=l[i];
        end;
    writeln(fo,max);


  end;

begin
    assign(fi,'scmax.in'); reset(fi);
    assign(Fo,'scmax.out'); rewrite(Fo);

      readln(Fi,n);
      for i:=1 to n do
        read(fi,v[i]);
      scm;

    close(Fi); close(Fo);
end.