// ~~ icebear ~~
#include <bits/stdc++.h>
using namespace std;
 
typedef long long ll;
typedef pair<int, int> ii;
typedef pair<int, ii> iii;
 
template<class T>
    bool minimize(T &a, const T &b) {
        if (a > b) return a = b, true;
        return false;
    }
 
template<class T>
    bool maximize(T &a, const T &b) {
        if (a < b) return a = b, true;
        return false;
    }
 
#define FOR(i,a,b) for(int i=(a); i<=(b); ++i)
#define FORR(i,a,b) for(int i=(a); i>=(b); --i)
#define REP(i, n) for(int i=0; i<(n); ++i)
#define RED(i, n) for(int i=(n)-1; i>=0; --i)
#define MASK(i) (1LL << (i))
#define BIT(S, i) (((S) >> (i)) & 1)
#define mp make_pair
#define pb push_back
#define fi first
#define se second
#define all(x) x.begin(), x.end()
#define task "investitie"
/*END OF TEMPLATE. ICEBEAR AND THE CAT WILL WIN VOI26 */
 
const int MOD = 1e9 + 7;
const int inf = 1e9 + 27092008;
const ll INF = 1e18 + 27092008;
const int N = 2e5 + 5;
int numComp, numDay, numQuery, perm[N], nxt[33][N];
ll sum[33][N];
 
ll calcSum(int i, int k) {
    ll ans = 0;
    while(k > 0) {
        int j = __builtin_ctz(k);
        ans += sum[j][i];
        i = nxt[j][i];
        k ^= MASK(j);
    }
    return ans;
}
 
void init(void) {
    cin >> numComp >> numDay;
    FOR(i, 1, numComp) cin >> perm[i];
    cin >> numQuery;
}
 
void process(void) {
    FOR(i, 1, numComp) {
        nxt[0][i] = perm[i];
        sum[0][i] = perm[i];
    }
    FOR(j, 1, 30) FOR(i, 1, numComp) {
        nxt[j][i] = nxt[j - 1][nxt[j - 1][i]];
        sum[j][i] = sum[j - 1][i] + sum[j - 1][nxt[j - 1][i]];
    }
 
    while(numQuery--) {
        int lday, rday, lcomp, rcomp;
        cin >> lday >> rday >> lcomp >> rcomp;
        ll ans = 0;
        FOR(i, lcomp, rcomp) ans += calcSum(i, rday) - calcSum(i, lday - 1);
        cout << ans << '\n';
    }
}
 
int main() {
    ios_base::sync_with_stdio(0);
    cin.tie(0); cout.tie(0);
    if (fopen(task".in", "r")) {
        freopen(task".in", "r", stdin);
        freopen(task".out", "w", stdout);
    }
    int tc = 1;
//    cin >> tc;
    while(tc--) {
        init();
        process();
    }
    return 0;
}
 
				Ly8gfn4gaWNlYmVhciB+fgojaW5jbHVkZSA8Yml0cy9zdGRjKysuaD4KdXNpbmcgbmFtZXNwYWNlIHN0ZDsKCnR5cGVkZWYgbG9uZyBsb25nIGxsOwp0eXBlZGVmIHBhaXI8aW50LCBpbnQ+IGlpOwp0eXBlZGVmIHBhaXI8aW50LCBpaT4gaWlpOwoKdGVtcGxhdGU8Y2xhc3MgVD4KICAgIGJvb2wgbWluaW1pemUoVCAmYSwgY29uc3QgVCAmYikgewogICAgICAgIGlmIChhID4gYikgcmV0dXJuIGEgPSBiLCB0cnVlOwogICAgICAgIHJldHVybiBmYWxzZTsKICAgIH0KCnRlbXBsYXRlPGNsYXNzIFQ+CiAgICBib29sIG1heGltaXplKFQgJmEsIGNvbnN0IFQgJmIpIHsKICAgICAgICBpZiAoYSA8IGIpIHJldHVybiBhID0gYiwgdHJ1ZTsKICAgICAgICByZXR1cm4gZmFsc2U7CiAgICB9CgojZGVmaW5lIEZPUihpLGEsYikgZm9yKGludCBpPShhKTsgaTw9KGIpOyArK2kpCiNkZWZpbmUgRk9SUihpLGEsYikgZm9yKGludCBpPShhKTsgaT49KGIpOyAtLWkpCiNkZWZpbmUgUkVQKGksIG4pIGZvcihpbnQgaT0wOyBpPChuKTsgKytpKQojZGVmaW5lIFJFRChpLCBuKSBmb3IoaW50IGk9KG4pLTE7IGk+PTA7IC0taSkKI2RlZmluZSBNQVNLKGkpICgxTEwgPDwgKGkpKQojZGVmaW5lIEJJVChTLCBpKSAoKChTKSA+PiAoaSkpICYgMSkKI2RlZmluZSBtcCBtYWtlX3BhaXIKI2RlZmluZSBwYiBwdXNoX2JhY2sKI2RlZmluZSBmaSBmaXJzdAojZGVmaW5lIHNlIHNlY29uZAojZGVmaW5lIGFsbCh4KSB4LmJlZ2luKCksIHguZW5kKCkKI2RlZmluZSB0YXNrICJpbnZlc3RpdGllIgovKkVORCBPRiBURU1QTEFURS4gSUNFQkVBUiBBTkQgVEhFIENBVCBXSUxMIFdJTiBWT0kyNiAqLwoKY29uc3QgaW50IE1PRCA9IDFlOSArIDc7CmNvbnN0IGludCBpbmYgPSAxZTkgKyAyNzA5MjAwODsKY29uc3QgbGwgSU5GID0gMWUxOCArIDI3MDkyMDA4Owpjb25zdCBpbnQgTiA9IDJlNSArIDU7CmludCBudW1Db21wLCBudW1EYXksIG51bVF1ZXJ5LCBwZXJtW05dLCBueHRbMzNdW05dOwpsbCBzdW1bMzNdW05dOwoKbGwgY2FsY1N1bShpbnQgaSwgaW50IGspIHsKICAgIGxsIGFucyA9IDA7CiAgICB3aGlsZShrID4gMCkgewogICAgICAgIGludCBqID0gX19idWlsdGluX2N0eihrKTsKICAgICAgICBhbnMgKz0gc3VtW2pdW2ldOwogICAgICAgIGkgPSBueHRbal1baV07CiAgICAgICAgayBePSBNQVNLKGopOwogICAgfQogICAgcmV0dXJuIGFuczsKfQoKdm9pZCBpbml0KHZvaWQpIHsKICAgIGNpbiA+PiBudW1Db21wID4+IG51bURheTsKICAgIEZPUihpLCAxLCBudW1Db21wKSBjaW4gPj4gcGVybVtpXTsKICAgIGNpbiA+PiBudW1RdWVyeTsKfQoKdm9pZCBwcm9jZXNzKHZvaWQpIHsKICAgIEZPUihpLCAxLCBudW1Db21wKSB7CiAgICAgICAgbnh0WzBdW2ldID0gcGVybVtpXTsKICAgICAgICBzdW1bMF1baV0gPSBwZXJtW2ldOwogICAgfQogICAgRk9SKGosIDEsIDMwKSBGT1IoaSwgMSwgbnVtQ29tcCkgewogICAgICAgIG54dFtqXVtpXSA9IG54dFtqIC0gMV1bbnh0W2ogLSAxXVtpXV07CiAgICAgICAgc3VtW2pdW2ldID0gc3VtW2ogLSAxXVtpXSArIHN1bVtqIC0gMV1bbnh0W2ogLSAxXVtpXV07CiAgICB9CgogICAgd2hpbGUobnVtUXVlcnktLSkgewogICAgICAgIGludCBsZGF5LCByZGF5LCBsY29tcCwgcmNvbXA7CiAgICAgICAgY2luID4+IGxkYXkgPj4gcmRheSA+PiBsY29tcCA+PiByY29tcDsKICAgICAgICBsbCBhbnMgPSAwOwogICAgICAgIEZPUihpLCBsY29tcCwgcmNvbXApIGFucyArPSBjYWxjU3VtKGksIHJkYXkpIC0gY2FsY1N1bShpLCBsZGF5IC0gMSk7CiAgICAgICAgY291dCA8PCBhbnMgPDwgJ1xuJzsKICAgIH0KfQoKaW50IG1haW4oKSB7CiAgICBpb3NfYmFzZTo6c3luY193aXRoX3N0ZGlvKDApOwogICAgY2luLnRpZSgwKTsgY291dC50aWUoMCk7CiAgICBpZiAoZm9wZW4odGFzayIuaW4iLCAiciIpKSB7CiAgICAgICAgZnJlb3Blbih0YXNrIi5pbiIsICJyIiwgc3RkaW4pOwogICAgICAgIGZyZW9wZW4odGFzayIub3V0IiwgInciLCBzdGRvdXQpOwogICAgfQogICAgaW50IHRjID0gMTsKLy8gICAgY2luID4+IHRjOwogICAgd2hpbGUodGMtLSkgewogICAgICAgIGluaXQoKTsKICAgICAgICBwcm9jZXNzKCk7CiAgICB9CiAgICByZXR1cm4gMDsKfQo=