#include <iostream>
#include <vector>
#include <algorithm>
#include <string>
#include <numeric>
#include <utility>
#include <tuple>

#define rep(i, a, b) for (int i = int(a); i < int(b); i++)
using namespace std;
using ll = long long int;
using P = pair<ll, ll>;

// clang-format off
#ifdef _DEBUG_
#define dump(...) do{ cerr << __LINE__ << ":\t" << #__VA_ARGS__ << " = "; PPPPP(__VA_ARGS__); cerr << endl; } while(false)
template<typename T> void PPPPP(T t) { cerr << t; }
template<typename T, typename... S> void PPPPP(T t, S... s) { cerr << t << ", "; PPPPP(s...); }
#else
#define dump(...) do{ } while(false)
#endif
template<typename T> vector<T> make_v(size_t a, T b) { return vector<T>(a, b); }
template<typename... Ts> auto make_v(size_t a, Ts... ts) { return vector<decltype(make_v(ts...))>(a, make_v(ts...)); }
template<typename T> bool chmin(T &a, T b) { if (a > b) {a = b; return true; } return false; }
template<typename T> bool chmax(T &a, T b) { if (a < b) {a = b; return true; } return false; }
template<typename T> void print(T a) { cout << a << '\n'; }
template<typename T, typename... Ts> void print(T a, Ts... ts) { cout << a << ' '; print(ts...); }
template<typename T> istream &operator,(istream &in, T &t) { return in >> t; }
// clang-format on

#include <functional>
template<typename T>
class SegmentTreeOneAll {
    using Func = function<T(T, T)>;

public:
    vector<T> data;
    int n;
    T init;
    Func update_func;
    Func query_func;
    SegmentTreeOneAll(int _n, T _init, Func up, Func qu) {
        init = _init;
        update_func = up;
        query_func = qu;
        for (n = 1; n < _n; n *= 2)
            ;
        data.resize(2 * n - 1, init);
    }
    void update(int pos, T val) {
        pos += n - 1;
        data[pos] = update_func(data[pos], val);
        while (pos > 0) {
            pos = (pos - 1) / 2;
            data[pos] = query_func(data[2 * pos + 1], data[2 * pos + 2]);
        }
    }
    T query(int l, int r) {
        T resL = init, resR = init;
        for (l += n - 1, r += n - 1; l < r; l = l / 2, r = (r - 1) / 2) {
            if (!(l & 1)) {
                resL = query_func(resL, data[l]);
            }
            if (!(r & 1)) {
                resR = query_func(data[r - 1], resR);
            }
        }
        return query_func(resL, resR);
    }
};

template<typename T, typename E>
void compress_insert(vector<T> &inserter, pair<vector<T> &, vector<E> &> pr) {
    for (T &val : pr.first) {
        inserter.push_back(val);
    }
}
template<typename T, typename Head, typename... Args>
void compress_insert(vector<T> &inserter, Head head, Args... args) {
    compress_insert(inserter, head);
    compress_insert(inserter, args...);
}
template<typename T, typename E>
void compress_update(vector<T> &inserter, pair<vector<T> &, vector<E> &> pr) {
    for (unsigned int i = 0; i < pr.first.size(); i++) {
        pr.second[i] = static_cast<int>(lower_bound(inserter.begin(), inserter.end(), pr.first[i]) - inserter.begin());
    }
}
template<typename T, typename Head, typename... Args>
void compress_update(vector<T> &inserter, Head head, Args... args) {
    compress_update(inserter, head);
    compress_update(inserter, args...);
}
template<typename T, typename... Args>
size_t compress(vector<T> &inserter, Args... args) {
    compress_insert(inserter, args...);
    sort(inserter.begin(), inserter.end());
    inserter.erase(unique(inserter.begin(), inserter.end()), inserter.end());
    compress_update(inserter, args...);
    return inserter.size();
}
template<typename T, typename E>
auto refer(vector<T> &a, vector<E> &b) {
    return make_pair(ref(a), ref(b));
}

int main() {
    cin.tie(nullptr);
    ios::sync_with_stdio(false);
    int n, q;
    cin, n, q;
    vector<ll> a(n, 0);
    rep(i, 0, n) {
        cin, a[i];
    }
    vector<ll> b(n);

    vector<vector<int>> L(n), R(n);
    vector<ll> x(q);
    rep(i, 0, q) {
        int t, l, r;
        cin, t, l, r, x[i];
        l--;
        r--;
        L[l].emplace_back(i);
        R[r].emplace_back(i);
    }
    vector<ll> y(q);
    vector<ll> mapping;
    int sz = compress(mapping, refer(a, b), refer(x, y));

    vector<ll> ans(q, 0LL);
    auto SUM = [](ll s, ll t) {
        return s + t;
    };
    SegmentTreeOneAll<ll> seg1(sz, 0LL, SUM, SUM), seg2(sz, 0LL, SUM, SUM);

    rep(i, 0, n) {
        for (auto ii : L[i]) {
            int pos = y[ii];
            ll cnt = seg1.query(pos, sz);
            ll sum = seg2.query(pos, sz);
            ans[ii] -= (sum - cnt * x[ii]);
        }
        {
            int pos = b[i];
            seg1.update(pos, 1);
            seg2.update(pos, a[i]);
        }
        for (auto ii : R[i]) {
            int pos = y[ii];
            ll cnt = seg1.query(pos, sz);
            ll sum = seg2.query(pos, sz);
            ans[ii] += (sum - cnt * x[ii]);
        }
    }
    rep(i, 0, q) {
        print(ans[i]);
    }
    return 0;
}