# Studying https://atcoder.jp/contests/abc140/submissions/7415625

def Next _N, _P, _O1, _I, o
	(_N-1).downto(0){|i|
		j = [_I[i]+1, _N].min
		j = _O1[j] while j < _N and _P[j] <= _P[i]
		o[i] = j
	}
end

def Gen _N, _P
	io = (0..._N).to_a # 0
	Next(_N, _P, io, io, io)
	o1 = io.dup # 1
	return Enumerator.new{|y|
		y << o1.dup # 1
		loop {
			Next(_N, _P, o1, io, io)
			y << io.dup # 2, 3, 4,...
		}
	}
end

N = gets.to_i
P = gets.split.map &:to_i
RU = Gen(N, P).take(2)
LU = Gen(N, P.reverse).take(2).map!{|_| _.map!{|i| N-1-i }.reverse! }

p N.times.map{|i|
	ll, l, r, rr = LU[1][i], LU[0][i], RU[0][i], RU[1][i]
	P[i] * ((i-l)*(rr-r) + (r-i)*(l-ll))
}.inject(&:+)
