/* Authors: Vu Hoang Bach from Phuoc Hoa Secondary School */
/* Enjoy TheFatRat's music while reading my code. Link: https://w...content-available-to-author-only...e.com/watch?v=GCx9FU59FJc&t=669s */
//#pragma GCC optimize("O3", "unroll-loops")
//#pragma GCC target("avx2", "bmi", "bmi2", "lzcnt", "popcnt")
#include <bits/stdc++.h>
#define ldb long double
//#define double ldb
#define db double
#define name "test"
#define unomap unordered_map
#define unoset unordered_set
#define endl '\n'
#define str string
#define strstr stringstream
#define sz(a) a.size()
#define ll long long
//#define int ll
#define pii pair <int, int>
#define pll pair <ll, ll>
#define Unique(a) a.resize(unique(all(a)) - a.begin())
#define ull unsigned ll
#define fir first
#define sec second
#define idc cin.ignore()
#define lb lower_bound
#define ub upper_bound
#define all(s) s.begin(), s.end()
#define rev reverse
#define sigma ios_base::sync_with_stdio(0), cin.tie(0), cout.tie(0);
#define skibidi int main
#define rizz signed main
#define gcd __gcd
#define found(a, mp) mp.find(a) != mp.end()
#define game_over exit(0);
#define stfu return 0;
#define stop break;
#define odd(n) n & 1
#define pushb push_back
#define popb pop_back
#define pushf push_front
#define popf pop_front
#define even(n) !odd(n)
#define mul2x(a, x) a << x
#define div2x(a, x) a >> x
#define no_check continue;
#define lcm(a, b) a / __gcd(a, b) * b
#define log_base(x, base) log(x) / log(base)
#define debug clog << "No errors!"; game_over;
#define forw(i, a, b) for (int i = a; i <= b; ++i)
#define forw2(i, a, b) for (ll i = a; i <= b; ++i)
#define fors(i, a, b) for (int i = a; i >= b; --i)
#define fors2(i, a, b) for (ll i = a; i >= b; --i)
#define meme memset
#define pqueue priority_queue
#define want(x) cout << fixed << setprecision(x);
#define excuting_time cout << "Excuting time: " << 1000.0 * clock() / CLOCKS_PER_SEC << "ms";
using namespace std;
const int MOD = 1e9 + 7; // 998244353
const int inf = 1e9;
const ll INF = 1e18;
const int N = 4e5;
mt19937_64 rng(chrono::steady_clock::now().time_since_epoch().count());
ll random(const ll &L, const ll &R)
{
return uniform_int_distribution<ll> (L, R) (rng);
}
int n, a[N + 5];
stack <int> st;
ll res, res_mn, res_mx, PLS[N + 5], PGS[N + 5], NLE[N + 5], NGE[N + 5];
void clear_st()
{
while (!st.empty()) st.pop();
}
void cook()
{
cin >> n;
forw (i, 1, n) cin >> a[i];
res = res_mn = res_mx = 0;
clear_st();
a[0] = -inf - 1;
st.push(0);
forw (i, 1, n)
{
while (a[st.top()] >= a[i]) st.pop();
PLS[i] = st.top();
st.push(i);
}
clear_st();
a[0] = inf + 1;
st.push(0);
forw (i, 1, n)
{
while (a[st.top()] <= a[i]) st.pop();
PGS[i] = st.top();
st.push(i);
}
clear_st();
a[n + 1] = -inf - 1;
st.push(n + 1);
fors (i, n, 1)
{
while (a[st.top()] > a[i]) st.pop();
NLE[i] = st.top();
st.push(i);
}
clear_st();
a[n + 1] = inf + 1;
st.push(n + 1);
fors (i, n, 1)
{
while (a[st.top()] < a[i]) st.pop();
NGE[i] = st.top();
st.push(i);
}
forw (i, 1, n)
res_mn += a[i] * (i - NLE[i]) * (PLS[i] - i);
forw (i, 1, n)
res_mx += a[i] * (i - NGE[i]) * (PGS[i] - i);
res = res_mx - res_mn;
cout << res << endl;
}
skibidi()
//rizz()
{
srand(time(NULL));
sigma;
/*
if (fopen(name".INP", "r"))
{
freopen(name".INP", "r", stdin);
freopen(name".OUT", "w", stdout);
}
*/
int numTest = 1;
// cin >> numTest;
while (numTest--)
{
cook();
}
stfu;
}
LyogQXV0aG9yczogVnUgSG9hbmcgQmFjaCBmcm9tIFBodW9jIEhvYSBTZWNvbmRhcnkgU2Nob29sICovCi8qIEVuam95IFRoZUZhdFJhdCdzIG11c2ljIHdoaWxlIHJlYWRpbmcgbXkgY29kZS4gTGluazogaHR0cHM6Ly93Li4uY29udGVudC1hdmFpbGFibGUtdG8tYXV0aG9yLW9ubHkuLi5lLmNvbS93YXRjaD92PUdDeDlGVTU5RkpjJnQ9NjY5cyAqLwoKLy8jcHJhZ21hIEdDQyBvcHRpbWl6ZSgiTzMiLCAidW5yb2xsLWxvb3BzIikKLy8jcHJhZ21hIEdDQyB0YXJnZXQoImF2eDIiLCAiYm1pIiwgImJtaTIiLCAibHpjbnQiLCAicG9wY250IikKCiNpbmNsdWRlIDxiaXRzL3N0ZGMrKy5oPgojZGVmaW5lIGxkYiBsb25nIGRvdWJsZQovLyNkZWZpbmUgZG91YmxlIGxkYgojZGVmaW5lIGRiIGRvdWJsZQojZGVmaW5lIG5hbWUgInRlc3QiCiNkZWZpbmUgdW5vbWFwIHVub3JkZXJlZF9tYXAKI2RlZmluZSB1bm9zZXQgdW5vcmRlcmVkX3NldAojZGVmaW5lIGVuZGwgJ1xuJwojZGVmaW5lIHN0ciBzdHJpbmcKI2RlZmluZSBzdHJzdHIgc3RyaW5nc3RyZWFtCiNkZWZpbmUgc3ooYSkgYS5zaXplKCkKI2RlZmluZSBsbCBsb25nIGxvbmcKLy8jZGVmaW5lIGludCBsbAojZGVmaW5lIHBpaSBwYWlyIDxpbnQsIGludD4KI2RlZmluZSBwbGwgcGFpciA8bGwsIGxsPgojZGVmaW5lIFVuaXF1ZShhKSBhLnJlc2l6ZSh1bmlxdWUoYWxsKGEpKSAtIGEuYmVnaW4oKSkKI2RlZmluZSB1bGwgdW5zaWduZWQgbGwKI2RlZmluZSBmaXIgZmlyc3QKI2RlZmluZSBzZWMgc2Vjb25kCiNkZWZpbmUgaWRjIGNpbi5pZ25vcmUoKQojZGVmaW5lIGxiIGxvd2VyX2JvdW5kCiNkZWZpbmUgdWIgdXBwZXJfYm91bmQKI2RlZmluZSBhbGwocykgcy5iZWdpbigpLCBzLmVuZCgpCiNkZWZpbmUgcmV2IHJldmVyc2UKI2RlZmluZSBzaWdtYSBpb3NfYmFzZTo6c3luY193aXRoX3N0ZGlvKDApLCBjaW4udGllKDApLCBjb3V0LnRpZSgwKTsKI2RlZmluZSBza2liaWRpIGludCBtYWluCiNkZWZpbmUgcml6eiBzaWduZWQgbWFpbgojZGVmaW5lIGdjZCBfX2djZAojZGVmaW5lIGZvdW5kKGEsIG1wKSBtcC5maW5kKGEpICE9IG1wLmVuZCgpCiNkZWZpbmUgZ2FtZV9vdmVyIGV4aXQoMCk7CiNkZWZpbmUgc3RmdSByZXR1cm4gMDsKI2RlZmluZSBzdG9wIGJyZWFrOwojZGVmaW5lIG9kZChuKSBuICYgMQojZGVmaW5lIHB1c2hiIHB1c2hfYmFjawojZGVmaW5lIHBvcGIgcG9wX2JhY2sKI2RlZmluZSBwdXNoZiBwdXNoX2Zyb250CiNkZWZpbmUgcG9wZiBwb3BfZnJvbnQKI2RlZmluZSBldmVuKG4pICFvZGQobikKI2RlZmluZSBtdWwyeChhLCB4KSBhIDw8IHgKI2RlZmluZSBkaXYyeChhLCB4KSBhID4+IHgKI2RlZmluZSBub19jaGVjayBjb250aW51ZTsKI2RlZmluZSBsY20oYSwgYikgYSAvIF9fZ2NkKGEsIGIpICogYgojZGVmaW5lIGxvZ19iYXNlKHgsIGJhc2UpIGxvZyh4KSAvIGxvZyhiYXNlKQojZGVmaW5lIGRlYnVnIGNsb2cgPDwgIk5vIGVycm9ycyEiOyBnYW1lX292ZXI7CiNkZWZpbmUgZm9ydyhpLCBhLCBiKSBmb3IgKGludCBpID0gYTsgaSA8PSBiOyArK2kpCiNkZWZpbmUgZm9ydzIoaSwgYSwgYikgZm9yIChsbCBpID0gYTsgaSA8PSBiOyArK2kpCiNkZWZpbmUgZm9ycyhpLCBhLCBiKSBmb3IgKGludCBpID0gYTsgaSA+PSBiOyAtLWkpCiNkZWZpbmUgZm9yczIoaSwgYSwgYikgZm9yIChsbCBpID0gYTsgaSA+PSBiOyAtLWkpCiNkZWZpbmUgbWVtZSBtZW1zZXQKI2RlZmluZSBwcXVldWUgcHJpb3JpdHlfcXVldWUKI2RlZmluZSB3YW50KHgpIGNvdXQgPDwgZml4ZWQgPDwgc2V0cHJlY2lzaW9uKHgpOwojZGVmaW5lIGV4Y3V0aW5nX3RpbWUgY291dCA8PCAiRXhjdXRpbmcgdGltZTogIiA8PCAxMDAwLjAgKiBjbG9jaygpIC8gQ0xPQ0tTX1BFUl9TRUMgPDwgIm1zIjsKdXNpbmcgbmFtZXNwYWNlIHN0ZDsKY29uc3QgaW50IE1PRCA9IDFlOSArIDc7IC8vIDk5ODI0NDM1Mwpjb25zdCBpbnQgaW5mID0gMWU5Owpjb25zdCBsbCBJTkYgPSAxZTE4Owpjb25zdCBpbnQgTiA9IDRlNTsKCm10MTk5MzdfNjQgcm5nKGNocm9ubzo6c3RlYWR5X2Nsb2NrOjpub3coKS50aW1lX3NpbmNlX2Vwb2NoKCkuY291bnQoKSk7CmxsIHJhbmRvbShjb25zdCBsbCAmTCwgY29uc3QgbGwgJlIpCnsKICAgIHJldHVybiB1bmlmb3JtX2ludF9kaXN0cmlidXRpb248bGw+IChMLCBSKSAocm5nKTsKfQoKaW50IG4sIGFbTiArIDVdOwpzdGFjayA8aW50PiBzdDsKbGwgcmVzLCByZXNfbW4sIHJlc19teCwgUExTW04gKyA1XSwgUEdTW04gKyA1XSwgTkxFW04gKyA1XSwgTkdFW04gKyA1XTsKCnZvaWQgY2xlYXJfc3QoKQp7CiAgICB3aGlsZSAoIXN0LmVtcHR5KCkpIHN0LnBvcCgpOwp9Cgp2b2lkIGNvb2soKQp7CiAgICBjaW4gPj4gbjsKICAgIGZvcncgKGksIDEsIG4pIGNpbiA+PiBhW2ldOwogICAgcmVzID0gcmVzX21uID0gcmVzX214ID0gMDsKCiAgICBjbGVhcl9zdCgpOwogICAgYVswXSA9IC1pbmYgLSAxOwogICAgc3QucHVzaCgwKTsKICAgIGZvcncgKGksIDEsIG4pCiAgICB7CiAgICAgICAgd2hpbGUgKGFbc3QudG9wKCldID49IGFbaV0pIHN0LnBvcCgpOwogICAgICAgIFBMU1tpXSA9IHN0LnRvcCgpOwogICAgICAgIHN0LnB1c2goaSk7CiAgICB9CgogICAgY2xlYXJfc3QoKTsKICAgIGFbMF0gPSBpbmYgKyAxOwogICAgc3QucHVzaCgwKTsKICAgIGZvcncgKGksIDEsIG4pCiAgICB7CiAgICAgICAgd2hpbGUgKGFbc3QudG9wKCldIDw9IGFbaV0pIHN0LnBvcCgpOwogICAgICAgIFBHU1tpXSA9IHN0LnRvcCgpOwogICAgICAgIHN0LnB1c2goaSk7CiAgICB9CgogICAgY2xlYXJfc3QoKTsKICAgIGFbbiArIDFdID0gLWluZiAtIDE7CiAgICBzdC5wdXNoKG4gKyAxKTsKICAgIGZvcnMgKGksIG4sIDEpCiAgICB7CiAgICAgICAgd2hpbGUgKGFbc3QudG9wKCldID4gYVtpXSkgc3QucG9wKCk7CiAgICAgICAgTkxFW2ldID0gc3QudG9wKCk7CiAgICAgICAgc3QucHVzaChpKTsKICAgIH0KCiAgICBjbGVhcl9zdCgpOwogICAgYVtuICsgMV0gPSBpbmYgKyAxOwogICAgc3QucHVzaChuICsgMSk7CiAgICBmb3JzIChpLCBuLCAxKQogICAgewogICAgICAgIHdoaWxlIChhW3N0LnRvcCgpXSA8IGFbaV0pIHN0LnBvcCgpOwogICAgICAgIE5HRVtpXSA9IHN0LnRvcCgpOwogICAgICAgIHN0LnB1c2goaSk7CiAgICB9CgogICAgZm9ydyAoaSwgMSwgbikKICAgICAgICByZXNfbW4gKz0gYVtpXSAqIChpIC0gTkxFW2ldKSAqIChQTFNbaV0gLSBpKTsKICAgIGZvcncgKGksIDEsIG4pCiAgICAgICAgcmVzX214ICs9IGFbaV0gKiAoaSAtIE5HRVtpXSkgKiAoUEdTW2ldIC0gaSk7CiAgICByZXMgPSByZXNfbXggLSByZXNfbW47CiAgICBjb3V0IDw8IHJlcyA8PCBlbmRsOwp9Cgpza2liaWRpKCkKLy9yaXp6KCkKewogICAgc3JhbmQodGltZShOVUxMKSk7CiAgICBzaWdtYTsKICAgIC8qCiAgICBpZiAoZm9wZW4obmFtZSIuSU5QIiwgInIiKSkKICAgIHsKICAgICAgICBmcmVvcGVuKG5hbWUiLklOUCIsICJyIiwgc3RkaW4pOwogICAgICAgIGZyZW9wZW4obmFtZSIuT1VUIiwgInciLCBzdGRvdXQpOwogICAgfQogICAgKi8KICAgIGludCBudW1UZXN0ID0gMTsKLy8gICAgY2luID4+IG51bVRlc3Q7CiAgICB3aGlsZSAobnVtVGVzdC0tKQogICAgewogICAgICAgIGNvb2soKTsKICAgIH0KICAgIHN0ZnU7Cn0K