#include<iostream>
#include<cstring>
#include<cstdio>
#include<algorithm>
#include<cmath>
#include<map>
#include<vector>
#include<queue>
#include<set>
#include<bitset>
#include<deque>
#include<stack>
#include<unordered_map>
#include<ctime>
using namespace std;
typedef long long ll;
typedef unsigned long long ull;
typedef long double ld;
#define int long long
const int N=5e5+10;
int n,m,w[N],z[N],p[N],LL[N],nxt[N<<1],to[N];
int f[N][20];
ll sumw[N],sumbor[N],d[N];
char S[N],T[N];
vector<int>q[N];
vector<int>s[N];
ll tr[N],ans[N];
inline void modify(int x,ll v)
{
	while(x<=n)
	{
		tr[x]+=v;
		x+=(x&(-x));
	}
	return;
}
inline ll query(int x)
{
	ll res=0;
	while(x>0)
	{
		res+=tr[x];
		x-=(x&(-x));
	}
	return res;
}
signed main()
{
	scanf("%lld%lld",&n,&m);
	scanf("%s%s",S+1,T+1);
	for(int i=1;i<=n;i++) scanf("%lld",&w[i]);
	for(int i=1;i<=n;i++) sumw[i]=sumw[i-1]+w[i];
	for(int i=1;i<=m;i++)
	{
		int r;scanf("%lld%lld",&LL[i],&r);
		q[r].push_back(i);
	}
	z[1]=n;
	for(int i=2,l=0,r=0;i<=n;i++)
	{
		if(i<=r) z[i]=min(z[i-l+1],r-i+1);
		while((i+z[i])<=n&&S[i+z[i]]==S[z[i]+1]) z[i]++;
		if((i+z[i]-1)>r) l=i,r=i+z[i]-1;
	}
	for(int i=1,l=0,r=0;i<=n;i++)
	{
		if(i<=r) p[i]=min(z[i-l+1],r-i+1);
		while((i+p[i])<=n&&T[i+p[i]]==S[p[i]+1]) p[i]++;
		if((i+p[i]-1)>r) l=i,r=i+p[i]-1;
	}
//	for(int i=1;i<=n;i++) printf("p[%d]=%d ",i,p[i]);puts("");
	for(int i=1;i<=n;i++) s[i+p[i]].push_back(i);
	sumbor[1]=sumw[1];
	for(int i=2,j=0;i<=n;i++)
	{
		while(j>0&&S[i]!=S[j+1]) j=nxt[j];
		if(S[i]==S[j+1]) j++;
		nxt[i]=j;sumbor[i]=sumbor[nxt[i]]+sumw[i];
	}
	for(int i=1,j=nxt[n];i<=n;i++)
	{
		while(j>0&&T[i]!=(((j+1)>n)?T[j+1-n]:S[j+1])) j=nxt[j];
		if(T[i]==(((j+1)>n)?T[j+1-n]:S[j+1])) j++;
		nxt[i+n]=j;
		if(j<=n) to[i]=j;
		else to[i]=to[j];
//		printf("to[%d]=%d ",i,to[i]);
	}
	for(int i=1;i<=n;i++) f[i][0]=nxt[i];
	for(int j=1;j<=18;j++)
		for(int i=1;i<=n;i++)
			f[i][j]=f[f[i][j-1]][j-1];
	for(int i=1;i<=n;i++)
	{
		for(int j=0;j<s[i].size();j++) modify(s[i][j],sumw[p[s[i][j]]]);
		for(int j=0;j<q[i].size();j++)
		{
			int L=LL[q[i][j]],R=i,id=q[i][j];
			ans[id]=query(R)-query(L-1);
			int p=to[i];
			int l=0,r=n,x=p;
			while(l<=r)
			{
				int mid=(l+r)>>1;
				int tmp=p;
				for(int k=0;k<=18;k++)
					if((mid>>k)&1) tmp=f[tmp][k];
				if(tmp<=R-L+1) x=tmp,r=mid-1;
				else l=mid+1;
			}
			ans[id]+=sumbor[x];
		}
	}
	for(int i=1;i<=m;i++) printf("%lld\n",ans[i]);
	return 0;
}
/*
8 5
abbabaab
aababbab
1 2 4 8 16 32 64 128
1 1
2 3
3 5
4 7
1 8

15 4
heheheheehhejie
heheheheheheheh
3 1 4 1 5 9 2 6 5 3 5 8 9 7 9
2 3
4 8
2 6
1 15
*/