// ~~ 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[N][33];
ll sum[N][33];
ll calcSum(int i, int k) {
ll ans = 0;
FOR(j, 0, 30) if (BIT(k, j)) {
ans += sum[i][j];
i = nxt[i][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[i][0] = perm[i];
sum[i][0] = perm[i];
}
FOR(j, 1, 30) FOR(i, 1, numComp) {
nxt[i][j] = nxt[nxt[i][j - 1]][j - 1];
sum[i][j] = sum[i][j - 1] + sum[nxt[i][j - 1]][j - 1];
}
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+PiAoaSkpICYgMSkKI2RlZmluZSBtcCBtYWtlX3BhaXIKI2RlZmluZSBwYiBwdXNoX2JhY2sKI2RlZmluZSBmaSBmaXJzdAojZGVmaW5lIHNlIHNlY29uZAojZGVmaW5lIGFsbCh4KSB4LmJlZ2luKCksIHguZW5kKCkKI2RlZmluZSB0YXNrICJpbnZlc3RpdGllIgovKkVORCBPRiBURU1QTEFURS4gSUNFQkVBUiBBTkQgVEhFIENBVCBXSUxMIFdJTiBWT0kyNiAqLwoKY29uc3QgaW50IE1PRCA9IDFlOSArIDc7CmNvbnN0IGludCBpbmYgPSAxZTkgKyAyNzA5MjAwODsKY29uc3QgbGwgSU5GID0gMWUxOCArIDI3MDkyMDA4Owpjb25zdCBpbnQgTiA9IDJlNSArIDU7CmludCBudW1Db21wLCBudW1EYXksIG51bVF1ZXJ5LCBwZXJtW05dLCBueHRbTl1bMzNdOwpsbCBzdW1bTl1bMzNdOwoKbGwgY2FsY1N1bShpbnQgaSwgaW50IGspIHsKICAgIGxsIGFucyA9IDA7CiAgICBGT1IoaiwgMCwgMzApIGlmIChCSVQoaywgaikpIHsKICAgICAgICBhbnMgKz0gc3VtW2ldW2pdOwogICAgICAgIGkgPSBueHRbaV1bal07CiAgICB9CiAgICByZXR1cm4gYW5zOwp9Cgp2b2lkIGluaXQodm9pZCkgewogICAgY2luID4+IG51bUNvbXAgPj4gbnVtRGF5OwogICAgRk9SKGksIDEsIG51bUNvbXApIGNpbiA+PiBwZXJtW2ldOwogICAgY2luID4+IG51bVF1ZXJ5Owp9Cgp2b2lkIHByb2Nlc3Modm9pZCkgewogICAgRk9SKGksIDEsIG51bUNvbXApIHsKICAgICAgICBueHRbaV1bMF0gPSBwZXJtW2ldOwogICAgICAgIHN1bVtpXVswXSA9IHBlcm1baV07CiAgICB9CiAgICBGT1IoaiwgMSwgMzApIEZPUihpLCAxLCBudW1Db21wKSB7CiAgICAgICAgbnh0W2ldW2pdID0gbnh0W254dFtpXVtqIC0gMV1dW2ogLSAxXTsKICAgICAgICBzdW1baV1bal0gPSBzdW1baV1baiAtIDFdICsgc3VtW254dFtpXVtqIC0gMV1dW2ogLSAxXTsKICAgIH0KCiAgICB3aGlsZShudW1RdWVyeS0tKSB7CiAgICAgICAgaW50IGxkYXksIHJkYXksIGxjb21wLCByY29tcDsKICAgICAgICBjaW4gPj4gbGRheSA+PiByZGF5ID4+IGxjb21wID4+IHJjb21wOwogICAgICAgIGxsIGFucyA9IDA7CiAgICAgICAgRk9SKGksIGxjb21wLCByY29tcCkgYW5zICs9IGNhbGNTdW0oaSwgcmRheSkgLSBjYWxjU3VtKGksIGxkYXkgLSAxKTsKICAgICAgICBjb3V0IDw8IGFucyA8PCAnXG4nOwogICAgfQp9CgppbnQgbWFpbigpIHsKICAgIGlvc19iYXNlOjpzeW5jX3dpdGhfc3RkaW8oMCk7CiAgICBjaW4udGllKDApOyBjb3V0LnRpZSgwKTsKICAgIGlmIChmb3Blbih0YXNrIi5pbiIsICJyIikpIHsKICAgICAgICBmcmVvcGVuKHRhc2siLmluIiwgInIiLCBzdGRpbik7CiAgICAgICAgZnJlb3Blbih0YXNrIi5vdXQiLCAidyIsIHN0ZG91dCk7CiAgICB9CiAgICBpbnQgdGMgPSAxOwovLyAgICBjaW4gPj4gdGM7CiAgICB3aGlsZSh0Yy0tKSB7CiAgICAgICAgaW5pdCgpOwogICAgICAgIHByb2Nlc3MoKTsKICAgIH0KICAgIHJldHVybiAwOwp9Cg==