#include<bits/stdc++.h>
using namespace std;
using lld = long long;

const lld inf = 1e9;

lld val[27];

vector<lld> sol(const string& s, lld p) {
	if(s.length() == 1) {
		vector<lld> res(27,-inf);
		for(lld i=0;i<26;i++)
			if(s[0] == '?' || s[0] == 'A'+i) res[i] = val[i];
		res[26] = *max_element(res.begin(), res.begin()+26);
		return res;
	}

	vector<string> t(p);
	for(lld i=0;i<s.length();i++)
		t[i%p] += s[i];

	vector<lld> res(27,0);
	for(lld i=0;i<p;i++) {
		auto R = sol(t[i],p);
		for(lld j=0;j<27;j++)
			res[j] += R[j];
	}

	for(int i=0;i<26;i++)
		res[i] += (lld) s.length() * val[i];

	res[26] = *max_element(res.begin(), res.end());

	return res;
}

int main() {
	ios_base::sync_with_stdio(false);
	cin.tie(nullptr);

	lld n;
	string s;
	cin >> n >> s;

	lld k;
	cin >> k;
	for(lld i=0;i<k;i++) {
		char a;
		lld b;
		cin >> a >> b;
		val[a-'A'] = b;
	}

	lld p = 2;
	if(n == 1)
		p = 1;
	else
		while(n%p != 0) p++;

	auto r = sol(s,p);

	cout << *max_element(r.begin(), r.end()) << "\n";

	return 0;
}