program subsir_crescator_maxim;
type vect=array [0..100000] of byte;
  var f,g:text;
      n,lmax,i,pmax:longint;
      a,l,min,d,p:vect;
procedure lll(a:vect);
var min,l:vect;
    i:byte;
begin
for i:=1 to n do min[i]:=255;
for i:=1 to n do
  begin
  l[i]:=lmax;
  while (min[l[i]]>=a[i]) and (l[i]>0) do dec(l[i]);
  d[i]:=p[l[i]];
  inc(l[i]);
  if l[i]>lmax then begin lmax:=l[i]; pmax:=i; end;
  if a[i]<min[l[i]] then begin min[l[i]]:=a[i]; p[l[i]]:=i; end;
  end;
writeln(g,lmax);
end;
begin
assign(f,'scmax.in');reset(f);   //    settextbuf(f,intrare);
assign(g,'scmax.out');rewrite(g);//    settextbuf(g,iesire);
readln(f,n);
for i:=1 to n do read(f,a[i]);
lll(a);
close(f);close(g);
end.