program subs2;
var v,a,t:array[1..5000] of longint;
n,i,min,nr,minaj,j:longint;
f,g:text;

ok:boolean;

begin
assign(f,'subsir2.in');reset(f);
assign(g,'subsir2.out');rewrite(g);
readln(F,n);
for i:=1 to n do
read(f,v[i]);

for i:=n downto 1 do
begin
ok:=true;
min:=1000000;
minaj:=1000000;
for j:=i+1 to n do
if v[j]<min then
if (v[i]<=v[j]) and (a[j]<minaj) then
begin
minaj:=a[j];
min:=v[j];
t[i]:=j;
ok:=false;
end;
if ok then
begin a[i]:=1; t[i]:=i; end
else a[i]:=minaj+1;
end;

writeln(g,a[1]);

close(g);

end.