program d;
var
  ch: char;
  c,s,r :byte;
  count, i, j, k, max_pos, max : integer;
  mena: array [1..26] of string[61];
  cervy: array [1..26] of word;
  

BEGIN
 repeat
  read(r,s); readln(c);
  
  
  
  if not((r=0)and(s=0)and(c=0)) then 
 begin  
  for i:= 1 to 26 do begin
    mena[i]:='';
    cervy[i]:=0;
  end;
  
  for i:= 1 to C do
    readln(mena[i]);

  for i:= 1 to R do
    for j:= 1 to S do begin
      read(ch);
      for k:= 1 to C do
        if (ch=mena[k][1]) then 
          cervy[k]:= cervy[k]+1;
   end;
   readln;
  
  max_pos:=0;
  max:=0;
  for i:= 1 to C do begin
    if (cervy[i] > max) then
     begin
       max:=cervy[i];
       max_pos:= i;
     end; 
   
  end;  
   
   write('Nejzravejsi cervotoc je ',mena[max_pos],'.');
 
 end;
 
 until (r=0)and (s=0) and (c=0);
END.