program Main;
const
  Maxin=100000;
var
  n, i, j, m, u:integer;
  min, sum: int64;
  s: array [1..MAXIN] of string;
  p: array [1..MAXIN] of integer;
  ch: char;
begin
  readln(n);

  for i:=1 to n do
    readln(s[i]);

  readln(m, u);

  for i:=1 to 256 do
    p[i]:=u;

  for i := 1 to m do
  begin
    readln(ch, u);
    p[ord(ch)] := u;
  end;

  for i :=1 to n do
  begin
    for j := 1 to length(s[i]) do
      sum := sum + p[ord(s[i][j])];
    if min > sum then
      min := sum;
    if i =1 then
      min := sum;
  end;
  writeln(min);
end.