{
TASK:LDIST
LANG:PASCAL
}
program ldist;
type mas=array[1..100]of integer;
     mass=array[1..74]of char;
var i,j,m,n,p,q,z:integer;
    d,v:mas;
    a,b,c:mass;
    sa,sb:string;
begin
readln(p);
for i:=1 to p do
readln(c[i],v[i]);
readln(q);
for i:=1 to q do
begin
readln(a[i],b[i],d[i]);
a[i+q]:=a[i];
b[i+q]:=b[i];
d[i+q]:=d[i];
end;
readln(sa);
readln(sb);
for i:=1 to length(sa) do
begin
     if sa[i]=sb[i] then z:=z else
     for j:=1 to 2*q do
     if a[j]=sb[i] then z:=z+d[j] else
     if a[j]=sa[i] then z:=z+d[j] else
     if sa[i]=sb[i+1] then z:=z+v[j] else
     z:=z+100
end;
writeln(z);
readln;
end.
