ll@N,@M;
map<string,ll>mp;
rep(i,N){
    string@S;
    ll@P;
    mp[S]=P;
}
ll a=0;
rep(M){
string@S;
a+=mp[S];
}
wt(a);