#include <bits/stdc++.h> 

#define X first
#define Y second
#define ll long long
#define pii pair<int, int>
#define pb push_back
#define vec vector
#define siz size()
#define pri(i, poc, n, pov) for(int i = (int) poc; i < (int) n; i += (int) pov)
#define od(i, poc, n, pov) for(int i = (int) poc; i > (int) n; i -= (int) pov)

using namespace std;

const ll INF = 1e18;                              
const int LOG = 20;
const int OFF = (1 << LOG);
const int MOD = 1e9 + 7;
const int lx[8] = {1, -1, 0, 0, -1, 1, 1, -1};
const int ly[8] = {0, 0, 1, -1, -1, 1, -1, 1};
const int N = 1e5 + 10;

int abs(int x){ 
	if(x < 0)
		return -x;
	return x;
}

int n, p;
ll val[30], mx; 
string s;

int findp(int x){ 
	pri(i, 2, x + 1, 1){ 
		int y = x;
		while((y % i) == 0){ 
			y /= i;
		}
		if(y != 1)
			continue;
		return i;
	}
	return 0;
}

ll rek(int x, int d, bool flag){ 
	if(d > n) return 0;
	
	ll ret = 0;

	if(flag){
		ret += n / d;

		int y = x;
		for(int i = 0; i < p; i++){ 
			ret += rek(y, d * p, 1);
			y = (y + d) % n;
		}

		return ret;
	}

	ll ret2 = 0;
	
	bool cat = true;
	bool qm = (s[x] == '?');

	int y = x;
	while(((y + d) % n) != x){
		y = (y + d) % n;
		if(s[y] != s[x] && s[y] != '?'){
			cat = false;
			break;
		}
		if(s[y] != '?')
			qm = false;
	}

	y = x;
	for(int i = 0; i < p; i++){ 
		ret2 += rek(y, d * p, 0);
		y = (y + d) % n;
	}

	ret = val[s[x] - 'A'];
	if(qm)
		ret = mx;
	ll m = rek(x, d, 1);
	ret *= m; 

	//cout << x << " " << d << " "<< flag << " " << cat << " " << qm << " " << ret << " " << ret2 << "\n"; 

	if(cat){ 
		return max(ret, ret2);
	}
	return ret2;
}

int main(){ 
	ios_base::sync_with_stdio(false); 
	cin.tie(0);
	cout.tie(0);
	setprecision(9);

	int spec;
	cin >> n >> s >> spec;

	pri(i, 0, spec, 1){ 
		char c;
		ll w;
		cin >> c >> w;
		val[c - 'A'] = w;
		mx = max(mx, w);
	}

	p = findp(n);
	
	cout << rek(0, 1, 0) << "\n";
	return 0;
}