program Main;


{$APPTYPE CONSOLE}





uses


  SysUtils;


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;
  mins: string;

function find(s: string): integer;
var
  i, k: integer;
begin
  k := 0;
  for i := 2 to length(s) do
    if (s[i] = s[i - 1]) then
      inc(k);
  find := k;
end;

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
    sum := 0;
    for j := 1 to length(s[i]) do
      sum := sum + p[ord(s[i][j])];
    if min > sum then
      if (find (s[i]) > find(mins)) then
      begin
        min := sum;
        mins := s[i];
      end;
    if i =1 then
    begin
      min := sum;
      mins := s[i];
    end;
  end;
  writeln(min);
  readln;
  readln;
end.