#include"bits/stdc++.h"
using namespace std;
typedef long long ll;
#define all(x) (x).begin(),(x).end()
const ll inf=1e18;
template<class T1,class T2> bool cmin(T1 &x,const T2 &y) { if (y<x) { x=y; return 1; }return 0; }
template<class T1,class T2> bool cmax(T1 &x,const T2 &y) { if (x<y) { x=y; return 1; }return 0; }
int main()
{
	ios::sync_with_stdio(0); cin.tie(0);
	int n,p,i;
	cin>>n;
	vector<int> typ(n*2,-1);
	vector<int> val(27);
	{
		string s;
		cin>>s;
		for (i=0; i<n; i++) if (s[i]!='?') typ[i]=s[i]-'A';
	}
	int q;
	cin>>q;
	while (q--)
	{
		char c;
		int v;
		cin>>c>>v;
		val[c-'A']=v;
	}
	if (n==1)
	{
		cout<<(typ[0]==-1?*max_element(all(val)):val[typ[0]])<<endl;
		return 0;
	}
	for (p=2; n%p; p++);
	vector e(n*2,vector<int>());
	int id=n;
	vector<int> f(n*2);
	iota(all(f),0);
	vector<int> fa(n*2,-1);
	vector<int> sz(n*2);
	vector dp(n*2,vector<ll>(27,0));
	function<int(int)> getf=[&](int u) { return f[u]==u?u:f[u]=getf(f[u]); };
	for (int d=n/p; d; d/=p)
	{
		vector<int> rt(d);
		iota(all(rt),id);
		id+=d;
		// cerr<<id<<endl;
		for (i=0; i<n; i++)
		{
			fa[getf(i)]=rt[i%d];
			e[rt[i%d]].push_back(getf(i));
			++sz[rt[i%d]];
		}
		for (i=0; i<n; i++)
		{
			f[getf(i)]=rt[i%d];
		}
	}
	for (auto &v:e) sort(all(v)),v.resize(unique(all(v))-v.begin());
	for (i=0; i<n; i++) sz[i]=1;
	function<void(int)> dfs=[&](int u)
		{
			int i;
			for (i=0; i<26; i++) if (typ[u]==-1||typ[u]==i) dp[u][i]=(ll)sz[u]*val[i]; else dp[u][i]=-inf;
			dp[u][26]=0;
			for (int v:e[u])
			{
				dfs(v);
				for (i=0; i<26; i++) dp[u][i]=max(-inf,dp[u][i]+dp[v][i]);
				dp[u][26]+=*max_element(all(dp[v]));
			}
			// cerr<<u<<' '<<sz[u]<<' '<<dp[u][0]<<' '<<dp[u][1]<<' '<<dp[u][26]<<endl;
		};
	dfs(id-1);
	cout<<*max_element(all(dp[id-1]))<<endl;
}