#include <bits/stdc++.h>


#define rep(x,to) for(int (x)=0;(x)<(to);(x)++)
#define all(c) (c).begin(),(c).end()
#define sz(v) (int)(v).size()
#define dnmin(a,b) (a)=min((a),(b))

using namespace std;
typedef vector<int> VI;
typedef pair<int, int> pii;

struct Bitree {
	typedef int btT;
	vector<btT> bv;
	Bitree() :bv(100005){}
	Bitree(int n) : bv(n + 3) {}
	btT sum(int i) {
		btT res=0; for(i++; i>0; i -= i & -i) res += bv[i]; return res;
	}
	btT sum(int a, int b) {return sum(b) - (a? sum(a-1): 0);}
	void add(int i, btT x){for(i++; i<(int)bv.size(); i += i & -i) bv[i] += x; }
};


int main(){
 
	int n, t, mno=0;
	cin >>n;
	VI hs(n);
	unordered_map<string, VI> mp;
	Bitree bta(600*27);
	vector<VI> va(600*27);
	rep(i,n) cin >>hs[i];
	cin >> t;
	VI nos(n);
	rep(i, t){
		string s; char a;
		cin >> s >> a;
		if(!mp.count(s)){
			mp[s] = VI{ 0,0, ++mno};
			//rcv[mp[s][2]] = s;
		}
		if(a != '?'){
			if(mp[s][0] !=0){
				bta.add(mp[s][0], -1);
				auto it = lower_bound(all(va[mp[s][0]]), mp[s][1]);
				assert(*it == mp[s][1]);
				if(it != va[mp[s][0]].end() && *it == mp[s][1]) va[mp[s][0]].erase(it);
			}
			mp[s][1] = i+1;
			int mz= a-'A';
			mp[s][0] += 50 * hs[mz] + (500 * hs[mz]) / (8 + 2* (++nos[mz]));
			bta.add(mp[s][0], 1);
			va[mp[s][0]].push_back(mp[s][1]);
		}else{
			int ans = bta.sum( mp[s][0] + 1, 600*27);
			auto& wv = va[mp[s][0]];
			int ans2 = lower_bound(all(wv), mp[s][1]) - wv.begin();
			cout << ans + ans2 + 1 <<"\n";
		}
	}
	
	return 0;
}