#include<cstdio>
#include<algorithm>
using namespace std;
#include<cstring>
#include<iostream>
#define mo 998244353
#define ull unsigned long long
const int N=5e3+5;
int n,Q,mi[N],hs[N];
char ch[N];
ull wl[N],wr[N],s[N][N];
int get(int l,int r){return (hs[r]-1ll*hs[l-1]*mi[r-l+1]%mo+mo)%mo;}
int main()
{
	scanf("%d%d",&n,&Q);
	scanf("%s",ch+1);
	for(int i=1;i<=n;i++)cin>>wl[i];
	for(int i=1;i<=n;i++)cin>>wr[i];
	mi[0]=1;for(int i=1;i<=n;i++)mi[i]=31ll*mi[i-1]%mo;
	for(int i=1;i<=n;i++)hs[i]=(31ll*hs[i-1]%mo+(ch[i]-'a'))%mo;
	for(int i=1;i<=n;i++)
		for(int j=i;j<=n;j++)
		{
			int len=j-i+1;
			ull sl=0,sr=0;
			for(int k=1;k+len-1<=n;k++)
				if(get(i,j)==get(k,k+len-1))sl+=wl[k],sr+=wr[k+len-1];
			s[i][j]=sl*sr;
		}
	for(;Q;Q--)
	{
		int l1,r1,l2,r2;
		scanf("%d%d%d%d",&l1,&r1,&l2,&r2);
		int len1=r1-l1+1,len2=r2-l2+1,len=max(len1,len2);
		ull ans=0;
		for(int i=1;i+len-1<=n;i++)
			for(int j=i+len-1;j<=n;j++)
				if(get(i,i+len1-1)==get(l1,r1)&&get(j-len2+1,j)==get(l2,r2))ans+=s[i][j];
		cout<<ans<<endl;
	}
	return 0;
}