var a,b:array[1..100000] of integer;
    i,n,max,maxim:integer;
    f,g:text;


procedure gasire(k:integer);
var i,max,t:integer;
begin
max:=0;
for i:=k-1 downto 1 do
begin
if a[i]<a[k] then
if a[i]>max then
begin
max:=a[i];
t:=i;
end;
end;
b[k]:=b[t]+1;
if b[k]>maxim then
begin
maxim:=b[k];
{if b[k]=s+1 then
begin
inc(s);
c[s]:=a[k];
end;}
end;
end;

begin
writeln;
maxim:=0;
assign(f,'scmax.in');
reset(f);
read(f,n);
{s:=0;}
for i:=1 to n do
begin
read (f,a[i]);
gasire(i);
end;

close(f);
assign(g,'scmax.out');
rewrite(g);

{for i:=s downto 1 do
write(g,c[i],' ');
writeln(g); }
write(g,maxim);

close(g);

end.