#include<bits/stdc++.h>
using namespace std;
const int N=2e5+5,M=4e5+5;
typedef unsigned long long ull;
int n,m,tot;
ull wl[N],wr[N],Ans[N],ans[N],nans;
char s[N];
struct node{
	int ch[26],len,fa;
};
struct SAM{
	node tr[N];
	int str[N],son[N][26],occ[N],pos[N],bel[N],ip[N],sz[N];
	ull sum[N];
	int cnt=1,ls=1;
	int fa[N][19],in[N],out[N];
	vector<int>e[N];
	void ins(int c){
		int p=ls,np=ls=++cnt;
		tr[np].len=tr[p].len+1;
		str[tr[np].len]=c,ip[tr[np].len]=np;
		for(;p&&!tr[p].ch[c];p=tr[p].fa)tr[p].ch[c]=np;
		if(!p)tr[np].fa=1;
		else{
			int q=tr[p].ch[c];
			if(tr[q].len==tr[p].len+1)tr[np].fa=q;
			else{
				int nq=++cnt;tr[nq]=tr[q];
				tr[nq].len=tr[p].len+1,tr[np].fa=tr[q].fa=nq;
				for(;p&&tr[p].ch[c]==q;p=tr[p].fa)tr[p].ch[c]=nq;
			}
		}
	}
	void dfs(int x){
		in[x]=++in[0];
		for(int i=1;i<19;++i)fa[x][i]=fa[fa[x][i-1]][i-1];
		for(auto v:e[x]){
			fa[v][0]=x;
			sz[v]=tr[v].len-tr[x].len;
			dfs(v);
			sum[x]+=sum[v];
			occ[x]+=occ[v];
			pos[x]=min(pos[x],pos[v]);
		}
		out[x]=in[0];
	}
	void build(ull *w){
		for(int i=1;i<=cnt;++i)e[tr[i].fa].emplace_back(i),pos[i]=1e9;
		int u=1;
		for(int i=1;i<=n;++i){
			u=tr[u].ch[str[i]];
			++occ[u];
			pos[u]=i,sum[u]=w[i];
		}
		dfs(1);
		for(int i=2;i<=cnt;++i)son[tr[i].fa][str[pos[i]-tr[tr[i].fa].len]]=i;
	}
	void feed(vector<int>* res){
		for(int u=cnt;u;--u){
			if(!bel[u])for(int i=0;i<26;++i)if(tr[u].ch[i])bel[u]=bel[tr[u].ch[i]];
			res[bel[u]].push_back(u);
		}
	}
	int find(int l,int r){
		int x=ip[r];
		for(int i=18;~i;--i)if(fa[x][i]&&tr[fa[x][i]].len>=r-l+1)x=fa[x][i];
		return x;
	}
	void print(){
		printf("cnt %d\n",cnt);
		for(int i=2;i<=cnt;++i){
			printf("id %d\n",i);
			printf("ln %d fa %d\n",tr[i].len,tr[i].fa);
			printf("occ %d pos %d sum %llu\n",occ[i],pos[i],sum[i]);
		}
	}
}s1,s2;
struct qry1{
	int l,r,id,x;
	ull va;
};
struct Bit{
	ull tr[N];
	void upd(int x,ull v){
		for(;x<N;x+=x&-x)tr[x]+=v;
	}
	ull sum(int x){
		ull res=0;
		for(;x;x-=x&-x)res+=tr[x];
		return res;
	}
	ull sum(int l,int r){
		return sum(r)-sum(l-1);
	}
}bit;
struct qry2{
	int x,y,id;
}q[M];
bool cmp(qry2 a,qry2 b){
	int pa=a.x>>9,pb=b.x>>9;
	if(pa!=pb)return pa<pb;
	return (pa&1)?a.y>b.y:a.y<b.y;
}
vector<int>rid[N],cid[N];
vector<qry1>qc[N],qr[N],tq[N];
int rp[N],cp[N],occ[N],rvx[N],rvy[N],bx[N],by[N];
int qid[M],cq;
void dfs(int x,int y){
	bool fg=s1.tr[x].len==s2.tr[y].len;
	if(fg)s1.bel[x]=s2.bel[y]=++tot,occ[tot]=s1.occ[x];
	for(int i=0;i<26;++i)if(s1.tr[s1.tr[x].ch[i]].len==s1.tr[x].len+1)
		dfs(s1.tr[x].ch[i],fg?s2.son[y][i]:y);
}
ull calc(int X,int Y){
	ull res=0;
	for(int i=2;i<=tot;++i){
		for(int j=0;j<rid[i].size();++j){
			int v=rid[i][j];
			if(s1.in[v]>X)continue;
			for(int k=0;k<s1.sz[v];++k){
				int u=cid[i][k];
				if(s2.in[u]>Y)continue;
				res+=1ll*s1.sum[v]*s2.sum[u]*occ[i];
			}
		}
	}
	return res;
}
void qry(int l1,int r1,int l2,int r2,int id){
	int p1=s1.find(l1,r1),p2=s2.find(n-r2+1,n-l2+1);
	int ln1=r1-l1+1,ln2=r2-l2+1;
	int y1=rp[p1],x1=s1.tr[p1].len-ln1,x2=cp[p2],y2=s2.tr[p2].len-ln2;
	//printf("?%d %d %d %d %d %d %d %d\n",s1.bel[p1],s2.bel[p2],p1,p2,x1,y1,x2,y2);
	if(s1.bel[p1]==s2.bel[p2]){
		if(x1!=x2||y1!=y2)
			if(x2>x1&&x2<s1.sz[p1]||y1>y2&&y1<s2.sz[p2])
				Ans[id]-=s1.sum[p1]*s2.sum[p2]*s1.occ[p1];
	}else{
		int o=s1.bel[p1];
		if(x1+1<s1.sz[p1]){
			qc[o].push_back({s2.in[p2],s2.out[p2],id,-x1,s1.sum[p1]*occ[o]});
			qc[o].push_back({s2.in[p2],s2.out[p2],id,s1.sz[p1]-1,s1.sum[p1]*occ[o]});
		}
		o=s2.bel[p2];
		if(y2+1<s2.sz[p2]){
			qr[o].push_back({s1.in[p1],s1.out[p1],id,-y2,s2.sum[p2]*occ[o]});
			qr[o].push_back({s1.in[p1],s1.out[p1],id,s2.sz[p2]-1,s2.sum[p2]*occ[o]});
		}
	}
	q[++cq]={s1.out[p1],s2.out[p2],0},qid[cq]=id;
	q[++cq]={s1.in[p1]-1,s2.out[p2],0},qid[cq]=-id;
	q[++cq]={s1.out[p1],s2.in[p2]-1,0},qid[cq]=-id;
	q[++cq]={s1.in[p1]-1,s2.in[p2]-1,0},qid[cq]=id;
}
void solve(int o){
	for(int i=0;i<cid[o].size();++i)tq[i].clear();
	for(auto v:qc[o]){
		if(v.x<0)tq[-v.x].push_back({v.l,v.r,v.id,-1,v.va});
		else tq[v.x].push_back({v.l,v.r,v.id,1,v.va});
	}
	for(int i=1;i<cid[o].size();++i){
		int u=cid[o][i];
		bit.upd(s2.in[u],s2.sum[u]);
		for(auto v:tq[i])Ans[v.id]-=bit.sum(v.l,v.r)*v.va*v.x;
	}
	for(int i=1;i<cid[o].size();++i){
		int u=cid[o][i];
		bit.upd(s2.in[u],-s2.sum[u]);
	}
	for(int i=0;i<rid[o].size();++i)tq[i].clear();
	for(auto v:qr[o]){
		if(v.x<0)tq[-v.x].push_back({v.l,v.r,v.id,-1,v.va});
		else tq[v.x].push_back({v.l,v.r,v.id,1,v.va});
	}
	for(int i=1;i<rid[o].size();++i){
		int u=rid[o][i];
		bit.upd(s1.in[u],s1.sum[u]);
		for(auto v:tq[i])Ans[v.id]-=bit.sum(v.l,v.r)*v.va*v.x;
	}
	for(int i=1;i<rid[o].size();++i){
		int u=rid[o][i];
		bit.upd(s1.in[u],-s1.sum[u]);
	}
}
void Print(){
	printf("tot %d\n",tot);
	for(int i=1;i<=tot;++i){
		printf("bel %d occ %d\n",i,occ[i]);
		printf("rid\n");
		for(auto v:rid[i])printf("%d %d\n",v,s1.sz[v]);
		printf("cid\n");
		for(auto v:cid[i])printf("%d %d\n",v,s2.sz[v]);putchar(10);
	}
}
void chgx(int x,int Y,int ty){
	int v=rvx[x],o=bx[x];
	for(int i=0;i<s1.sz[v];++i){
		int u=cid[o][i];
		if(s2.in[u]<=Y)nans+=s1.sum[v]*s2.sum[u]*occ[o]*ty;
	}
}
void chgy(int X,int y,int ty){
	int v=rvy[y],o=by[y];
	for(int i=0;i<s2.sz[v];++i){
		int u=rid[o][i];
		if(s1.in[u]<=X)nans+=s2.sum[v]*s1.sum[u]*occ[o]*ty;
	}
}
void Solve(){
	for(int i=1;i<=cq;++i)q[i].id=i;
	sort(q+1,q+cq+1,cmp);
	for(int i=1,X=0,Y=0;i<=cq;++i){
		while(X<q[i].x)chgx(++X,Y,1);
		while(Y<q[i].y)chgy(X,++Y,1);
		while(X>q[i].x)chgx(X--,Y,-1);
		while(Y>q[i].y)chgy(X,Y--,-1);
		ans[q[i].id]=nans;
	}
}
int main(){
	scanf("%d%d",&n,&m);
	scanf("%s",s+1);
	for(int i=1;i<=n;++i)scanf("%llu",&wl[i]);
	for(int i=1;i<=n;++i)scanf("%llu",&wr[i]);
	for(int i=1;i<=n;++i)s[i]-='a';
	for(int i=1;i<=n;++i)s1.ins(s[i]);
	for(int i=n;i;--i)s2.ins(s[i]);
	s1.build(wr);
	reverse(wl+1,wl+n+1);
	s2.build(wl);
	dfs(1,1);
	s1.feed(rid),s2.feed(cid);
	//s1.print(),s2.print();
	//Print();
	for(int i=1;i<=tot;++i){
		for(int j=0;j<rid[i].size();++j){
			int v=rid[i][j];
			rp[v]=j,rvx[s1.in[v]]=v;
			bx[s1.in[v]]=i;
		}
		for(int j=0;j<cid[i].size();++j){
			int v=cid[i][j];
			cp[v]=j,rvy[s2.in[v]]=v;
			by[s2.in[v]]=i;
		}
	}
	for(int i=1,l1,r1,l2,r2;i<=m;++i){
		scanf("%d%d%d%d",&l2,&r2,&l1,&r1);
		qry(l1,r1,l2,r2,i);
	}
	for(int i=2;i<=tot;++i)solve(i);
	Solve();
	for(int i=1;i<=cq;++i){
		if(qid[i]<0)Ans[-qid[i]]-=ans[i];
		else Ans[qid[i]]+=ans[i];
	}
	for(int i=1;i<=m;++i)printf("%llu\n",Ans[i]);
	return 0;
}