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, onecerv : 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);
   onecerv := zb;
   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;
  if c>1 then begin
   max := 0;
   for i := 65 to 90 do begin
    if zerou[i]>max then begin
     max := zerou[i];
     j := i;
    end;
   end;
  end else begin
   j := onecerv;
  end; 
  writeln('Nejzravejsi cervotoc je '+jmena[j]+'.');
  readln(r,s,c);
 end;
end.