class BIT
def initialize n;@n=n;@buf=[0]*(n+1)end
def add x,v;(@buf[x]+=v;x+=x&-x)while x<=@n;end
def sum x;s=0;(s+=@buf[x];x&=x-1)while x>0;s;end
end
n=gets.to_i
l=gets.split.map(&:to_i)
bl=BIT.new n#左にある値
br=BIT.new n#右にある値
#座標圧縮
z=Hash[l.sort.uniq.map.with_index{|i,j|[i,j+1]}]
t=l.map{|v|z[v]}
#最初は全部右にある
t.each{|v|br.add v,1}

cnt=t.map.with_index{|v,i|
  bl.add v,1
  br.add v,-1
  #左右の自分より小さい数同士、大きい数同士を掛けた数がパターン数
  bl.sum(v-1)*br.sum(v-1)+(i+1-bl.sum(v))*(n-i-1-br.sum(v))
}.inject(:+)
#左右が同じ数になるパターンを引く 解説(http://ideone.com/qVicVL)の通り
cnt-=(0...n).group_by{|i|t[i]}.values.flat_map{|a|(1...a.size).map{|i|i*(a.size-i)*(a[i]-a[i-1]-1)}}.inject(:+)
p cnt