program d;
var
 r,s,c,i, max:integer;
 zerou : array[65..95] of integer;
 jmena : array[65..95] of string[60];
 jmeno : string[60];
 zn : char;
 zb, j : byte;
 stul : string[255];
begin
 readln(r,s,c);
 while(r>0)and(s>0)and(c>0) do begin
  for i := 65 to 95 do begin
   jmena[i] := '';
   zerou[i] := 0;
  end;
  for i:= 1 to c do begin
   readln(jmeno);
   zn := jmeno[1];
   zb := ord(zn);
   jmena[zb] := jmeno;
  end;
  for i := 1 to r do begin
   readln(stul);
   for j:=1 to s do begin
    zb := ord(stul[j]);
    if zb>=65 then inc(zerou[zb]);
   end;
  end;
  j := 0;
  max := 0;
  for i := 65 to 90 do begin
   if zerou[i]>max then begin
    max := zerou[i];
    j := i;
   end;
  end;
  writeln('Nejzravejsi cervotoc je '+jmena[j]+'.');
  readln(r,s,c);
 end;
end.