program scmax;
var rbuf:array[1..32000] of byte;
    wbuf:array[1..10240] of byte;
    be,ki:text;
    n,i:longint;
    v:array[1..100000] of longint;
    m:array[1..100000] of longint;
    max:longint;

procedure keres(i:longint);
var j:longint;
begin
 j:=i-1;
 while (v[ j ] > v[ i ])and(j>=0) do
    dec(j);
 if j=0 then
       m[i]:=0
     else
       if v[j]=v[i] then m[i]:=m[j]
           else
              m[i]:=m[j]+1;
end;

begin
 assign(be,'scmax.in');
 assign(ki,'scmax.out');
 settextbuf(be,rbuf);
 settextbuf(ki,wbuf);
 reset(be);rewrite(ki);
 readln(be,n);
 for i:=1 to n do read(be,v[i]);
 max:=1;
 for i:=2 to n do
    begin
     keres(i);
     if m[i] > m[max] then max:=i;
    end;
 {for i:=1 to n do
    write(ki,v[i]:3,' ');
 writeln(ki);
 for i:=1 to n do
    write(ki,m[i]:3,' ');
 writeln(ki);}
 writeln(ki,m[max]+1);
 close(ki);
end.