var b:array[1..2000] of longint;
a:array[1..2000,1..2000] of longword;
s:longword;
n,i,j,k:longint;
f,g:text;

function intre(k,i,j:longint):boolean;
begin
intre:=((b[k]<b[j])and(b[k]>b[i]))or((b[k]>b[j])and(b[k]<b[i]));
end;

begin
assign(f,'psir.in');
assign(g,'psir.out');
reset(f);
rewrite(g);
read(f,n);
for i:=1 to n do
  read(f,b[i]);
for i:=1 to n-1 do
  for j:=i+1 to n do begin
    if a[i,j]=0 then
      a[i,j]:=1;
    for k:=j+1 to n do
      if intre(k,i,j) then begin
        if a[j,k]=0 then a[j,k]:=1;
        a[j,k]:=a[i,j]+a[j,k];
        end;
    s:=s+a[i,j];
    end;
writeln(g,s);
close(f);
close(g);
end.