#include<bits/stdc++.h> using namespace std; long long n,a[10005]; long long s[10005],t[10005]; map<long long,long long>mp; int main(){ scanf("%lld",&n); for(int i=1;i<=n;i++){ scanf("%lld",&a[i]); } long long ans=0; for(int i=1;i<=n;i++){ memset(s,0,sizeof(s)); memset(t,0,sizeof(t)); mp.clear(); long long sum=0; mp[0]+=i; for(int j=i-1;j>0;j--){ s[j]=s[j+1]; if(a[j]>a[i])s[j]++; else s[j]--; mp[s[j]]+=j; } for(int j=i+1;j<=n;j++){ t[j]=t[j-1]; if(a[j]>a[i])t[j]++; else t[j]--; sum+=mp[-t[j]]*j; } sum+=(mp[0]-i)*i; sum*=a[i]; sum+=a[i]*i*i; ans+=sum; } printf("%lld",ans); return 0; }