#include <bits/stdc++.h>
using namespace std;
int z[150010],Link[150010],t=0,p[150010],nex[150010],w[150010];
int n,m,Max[150010][20];
long long g[150010],c[150010],h[150010],sw[150010];
char S[150010],T[150010];
struct dsa
{
	int v,nex;
}e[150010];
void Exkmp()
{
	z[0]=0;
	for (int i=1,l=0,r=0;i<n;i++) {
		z[i]=0;
		if (i<=r) z[i]=min(z[i-l],r-i+1);
		while (i+z[i]<n&&S[i+z[i]]==S[z[i]]) z[i]++;
		if (i+z[i]-1>r) l=i,r=i+z[i]-1;
	}
	for (int i=0,l=0,r=0;i<n;i++) {
		p[i]=0;
		if (i<=r) p[i]=min(z[i-l],r-i+1);
		while (i+p[i]<n&&T[i+p[i]]==S[p[i]]) p[i]++;
		if (i+p[i]-1>r) l=i,r=i+p[i]-1;
	}
	return ;
}
void Insert(int x,int y)
{
	e[++t].nex=Link[x];e[t].v=y;Link[x]=t;
	return ;
}
void KMP()
{
	int now=-1;nex[0]=-1;
	Insert(0,1);
	for (int i=1;i<n;i++) {
		while (now!=-1&&S[now+1]!=S[i]) now=nex[now];
		if (S[now+1]==S[i]) now++;
		nex[i]=now;
		Insert(now+1,i+1);
	}
	return ;
}
void dfs(int now)
{
	if (now) c[now]+=w[now-1];
	for (int i=Link[now];i;i=e[i].nex) {
		c[e[i].v]=c[now];
		dfs(e[i].v);
	}
	return ;
}
int Get_Max(int l,int r)
{
	if (l>r) return 0;
	int len=log2(r-l+1);
	return max(Max[l][len],Max[r-(1<<len)+1][len]);
}
int Find(int l,int r,int lim)
{
	if (l==r) return l;
	int mid=(l+r)>>1;
//	cout<<l<<' '<<r<<' '<<Get_Max(l,mid)<<' '<<lim<<endl;
	if (Get_Max(l,mid)>=lim) return Find(l,mid,lim);
	return Find(mid+1,r,lim);
}
int main()
{
	ios::sync_with_stdio(false);
	cin.tie(nullptr);
	cin>>n>>m;
	cin>>S;cin>>T;
	for (int i=0;i<n;i++) cin>>w[i];
	Exkmp();
	for (int i=0;i<n;i++) Max[i][0]=i+p[i]-1;
	for (int i=1;i<=17;i++)
	  for (int j=0;j<n-(1<<i)+1;j++) 
	      Max[j][i]=max(Max[j][i-1],Max[j+(1<<(i-1))][i-1]);
	KMP();dfs(0);
	g[0]=w[0];
	for (int i=1;i<n;i++) g[i]=g[i-1]+c[i+1];
	sw[0]=w[0];
	for (int i=1;i<n;i++) sw[i]=sw[i-1]+w[i];
	h[0]+=sw[p[0]-1];
	for (int i=1;i<n;i++) h[i]=h[i-1]+sw[p[i]-1];
	for (int i=1;i<=m;i++) {
		int l,r;
		cin>>l>>r;
		l--;r--;
		int k=Find(l,r,r);
//		cout<<k<<' '<<g[r-k]<<endl;
		long long ans=g[r-k]+h[k-1];
		if (l) ans-=h[l-1];
		cout<<ans<<'\n';
	}
	return 0;
}