#include <bits/stdc++.h>
using namespace std;
void solve() {
  int n;
  cin >> n;
  vector<int> a(n), st;
  for (int i = 0; i < n; ++i) {
    cin >> a[i];
  }
  vector<int> near_r_gr_non_str(n, n), near_r_lw_str(n, n);
  vector<int> near_l_gr_str(n, -1), near_l_lw_non_str(n, -1);
  for (int i = 0; i < n; ++i) {
    while (!st.empty() && a[i] >= a[st.back()]) {
      near_r_gr_non_str[st.back()] = i;
      st.pop_back();
    }
    st.push_back(i);
  }
  st.clear();
  for (int i = 0; i < n; ++i) {
    while (!st.empty() && a[i] < a[st.back()]) {
      near_r_lw_str[st.back()] = i;
      st.pop_back();
    }
    st.push_back(i);
  }
  st.clear();
  for (int i = n - 1; i >= 0; --i) {
    while (!st.empty() && a[i] > a[st.back()]) {
      near_l_gr_str[st.back()] = i;
      st.pop_back();
    }
    st.push_back(i);
  }
  st.clear();
  for (int i = n - 1; i >= 0; --i) {
    while (!st.empty() && a[i] <= a[st.back()]) {
      near_l_lw_non_str[st.back()] = i;
      st.pop_back();
    }
    st.push_back(i);
  }
  st.clear();
  long long ans = 0;
  for (int i = 0; i < n; ++i) {
    int r_mx = near_r_gr_non_str[i], l_mx = near_l_gr_str[i];
    int r_mn = near_r_lw_str[i], l_mn = near_l_lw_non_str[i];
    ans += (r_mx - i) * 1ll * (i - l_mx) * a[i];
    ans -= (r_mn - i) * 1ll * (i - l_mn) * a[i];
  }
  cout << ans << '\n';
}
int main() {
  ios_base::sync_with_stdio(0);
  cin.tie(0);
  cout.tie(0);
  solve();
  return 0;
}
