program d;
var
 r,s,c,i, max:longint;
 zerou : array[65..90] of longint;
 jmena : array[65..90] of string[64];
 jmeno : string[64];
 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 90 do begin
   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
    zn := stul[j];
    zb := ord(zn);
    if zn<>'*' then inc(zerou[zb]);
   end;
  end;
  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.