program d;
var
  ch: char;
  c,s,r :integer;
  count, i, j, k, max_pos, max : integer;
  mena: array [1..27] of string[70];
  cervy: array [1..27] 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 begin
    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;
  end;
   
  
  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;  
   
   writeln('Nejzravejsi cervotoc je ',mena[max_pos],'.');
 
 end;
 
 until (r=0)and (s=0) and (c=0);
END.