#include <cassert>
#include <cmath>
#include <cstdint>
#include <cstdio>
#include <cstdlib>
#include <cstring>
#include <algorithm>
#include <bitset>
#include <complex>
#include <deque>
#include <functional>
#include <iostream>
#include <limits>
#include <map>
#include <numeric>
#include <queue>
#include <set>
#include <sstream>
#include <string>
#include <unordered_map>
#include <unordered_set>
#include <utility>
#include <vector>

using namespace std;

using Int = long long;

template <class T1, class T2> ostream &operator<<(ostream &os, const pair<T1, T2> &a) { return os << "(" << a.first << ", " << a.second << ")"; };
template <class T> ostream &operator<<(ostream &os, const vector<T> &as) { const int sz = as.size(); os << "["; for (int i = 0; i < sz; ++i) { if (i >= 256) { os << ", ..."; break; } if (i > 0) { os << ", "; } os << as[i]; } return os << "]"; }
template <class T> void pv(T a, T b) { for (T i = a; i != b; ++i) cerr << *i << " "; cerr << endl; }
template <class T> bool chmin(T &t, const T &f) { if (t > f) { t = f; return true; } return false; }
template <class T> bool chmax(T &t, const T &f) { if (t < f) { t = f; return true; } return false; }
#define COLOR(s) ("\x1b[" s "m")


using U = unsigned long long;

int N, Q;
char S[100'010];
vector<U> WL, WR;
vector<int> L1, R1, L2, R2;


namespace brute {
int dpL[5010][5010], dpR[5010][5010];
U W[5010][5010];
vector<U> run() {
  memset(dpL, 0, sizeof(dpL));
  memset(dpR, 0, sizeof(dpR));
  for (int i = N; --i >= 0; ) for (int j = N; --j >= 0; ) if (S[i] == S[j]) dpL[i][j] = 1 + dpL[i + 1][j + 1];
  for (int i = 0; i < N; ++i) for (int j = 0; j < N; ++j) if (S[i] == S[j]) dpR[i + 1][j + 1] = dpR[i][j] + 1;
  memset(W, 0, sizeof(W));
  for (int l = 0; l <= N; ++l) for (int r = l + 1; r <= N; ++r) W[l][r] = 1;
  for (int l = 0; l < N; ++l) {
    vector<U> sums(N - l + 1, 0);
    for (int i = 0; i < N; ++i) sums[dpL[l][i]] += WL[i];
    for (int k = N - l; k >= 1; --k) sums[k - 1] += sums[k];
    for (int r = l + 1; r <= N; ++r) W[l][r] *= sums[r - l];
  }
  for (int r = 1; r <= N; ++r) {
    vector<U> sums(r + 1, 0);
    for (int i = 1; i <= N; ++i) sums[dpR[r][i]] += WR[i];
    for (int k = r; k >= 1; --k) sums[k - 1] += sums[k];
    for (int l = 0; l < r; ++l) W[l][r] *= sums[r - l];
  }
// for(int l=0;l<=N;++l){cerr<<"W["<<l<<"] = ";pv(W[l],W[l]+N+1);}
  vector<U> ans(Q, 0);
  for (int q = 0; q < Q; ++q) {
    const int need = max(R1[q] - L1[q], R2[q] - L2[q]);
    for (int l = 0; l <= N; ++l) for (int r = l + need; r <= N; ++r) {
      if (dpL[L1[q]][l] >= R1[q] - L1[q] && dpR[R2[q]][r] >= R2[q] - L2[q]) {
        ans[q] += W[l][r];
      }
    }
  }
  return ans;
}
}  // brute


int main() {
  for (; ~scanf("%d%d", &N, &Q); ) {
    scanf("%s", S);
    WL.assign(N + 1, 0);
    for (int i = 0; i < N; ++i) {
      scanf("%llu", &WL[i]);
    }
    WR.assign(N + 1, 0);
    for (int i = 1; i <= N; ++i) {
      scanf("%llu", &WR[i]);
    }
    L1.resize(Q);
    R1.resize(Q);
    L2.resize(Q);
    R2.resize(Q);
    for (int q = 0; q < Q; ++q) {
      scanf("%d%d%d%d", &L1[q], &R1[q], &L2[q], &R2[q]);
      --L1[q];
      --L2[q];
    }
    
    const auto ans = brute::run();
    for (int q = 0; q < Q; ++q) {
      printf("%llu\n", ans[q]);
    }
  }
  return 0;
}