#include <stdio.h>
#include <iostream>
using namespace std;
const int C=100005, D=20, E=30;

long long dv[C], pw[C], v[E];
bool possible[D][C][E];
long long valid[D][C][E], invalid[D][C];
long long used_value[D];
int main(){
	long long i, j, jj, ij, n, m, p, exp, w, value;
	string s;
	char e, one_char;
	bool invalidos;

	//Powers
	dv[1]=1;
	for (i=2; i<C; i++){
		for (j=i; j<C; j+=i){
			if (dv[j]==0) dv[j]=i;
		}
	}
	pw[1]=1;
	for (i=2; i<C; i++){
		if (dv[i]==i) pw[i]=1;
		else pw[i]=-1;
	}
	for (i=2; i<C; i++){
		if (pw[i/dv[i]]>0 && dv[i]==dv[i/dv[i]]) pw[i]=pw[i/dv[i]]+1;
	}

	cin>>n;
	cin>>s;
	cin>>m;
	for (i=0; i<m; i++){
		cin>>e>>w;
		v[e-65]=w;
	}
	
	p=dv[n], exp=pw[n];
	value=1;
	for (j=0; j<=exp; j++){
		for (i=0; i<value; i++){
			invalidos=false;
			one_char='?';
			for (ij=i; ij<n; ij+=value){
				if (s[ij]!='?' && s[ij]!=one_char && one_char!='?') invalidos=true;
				else if (s[ij]!='?' && one_char=='?') one_char=s[ij];
			}
			if (invalidos==false){
				if (one_char!='?') possible[j][i][one_char-65]=true;
				else{
					for (ij=0; ij<E; ij++) possible[j][i][ij]=true;
				}
			}
		}
		used_value[j]=value;
		value*=p;
	}

	for (j=exp; j>=0; j--){
		for (i=0; i<used_value[j]; i++){
			for (ij=i; ij<used_value[j+1]; ij+=used_value[j]){
				invalid[j][i]+=invalid[j+1][ij];
				for (jj=0; jj<E; jj++){
					if (possible[j][i][jj]==false) continue;
					valid[j][i][jj]+=valid[j+1][ij][jj];
				}
			}
			for (jj=0; jj<E; jj++){
				if (possible[j][i][jj]==false) continue;
				valid[j][i][jj]+=1ll*used_value[exp-j]*v[jj];
				if (valid[j][i][jj] > invalid[j][i]) invalid[j][i]=valid[j][i][jj];
			}
		}
	}

	/*
	for (j=0; j<=exp; j++){
		for (i=0; i<used_value[j]; i++){
			for (ij=0; ij<E; ij++) printf ("%d %d %d %d %lld\n", j, i, ij, possible[j][i][ij], valid[j][i][ij]);
			printf ("%d %d %lld\n", j, i, invalid[j][i]);
		}
	}
	*/

	printf ("%lld\n", invalid[0][0]);

return 0;}