def maxi(l, r, pre = nil)
  return [P[l],P[l+1]].max if r - l == 1 
  pre ||= maxi(l,r-1)
  P[r] > maxi(l,r-1) ? P[r] : pre
end

def s_maxi(l, r, s_pre = nil, pre = nil)
  return [P[l],P[l+1]].min if r - l == 1 
  s_pre ||= s_maxi(l,r-1)
  pre ||= maxi(l,r-1)
  if s_pre > P[r]
    s_pre
  elsif s_pre < P[r] && P[r] < pre
    P[r]
  else
    pre
  end
end

N=gets.chomp.to_i
P=gets.chomp.split.map(&:to_i)
sum = 0

(N-1).times do |l|
  pre_s_maxi = nil
  pre_maxi = nil
  ((l+1)..(N-1)).each do |r|
    sum += s_maxi(l, r, pre_s_maxi, pre_maxi)
    pre_s_maxi = s_maxi(l,r,pre_s_maxi,pre_maxi)
    pre_maxi = maxi(l,r,pre_maxi)
  end
end

puts sum