program cervotoc (input,output);

const
  maxc=26;
  
var r,s,c:word;
  name:array['A'..'Z'] of string[70];
  poc:array['A'..'Z'] of integer;
  line:string[255];
  ch,maxcerv:char;
  i,j,maxzrav:integer;
begin


readln (r,s,c);

while (r<>0) and (s<>0) and (c<>0) do
begin
  for ch:='A' to 'Z' do
  begin
    poc[ch]:=-1;
  end;

  for i:=1 to c do
  begin
    readln(line);
    name[line[1]]:=line;
    poc[line[1]]:=0;
  end;
  for i:=1 to r do
  begin
    readln (line);
    for j:=1 to s do
      if line[j]<>'*'
        then inc(poc[line[j]]);
  end;

  maxcerv:='*';
  maxzrav:=-1;
  
{  for i:=1 to c do  
  begin
*    writeln (i,' ',name[i],' ',poc[name[i][1]]);    
    if maxzrav<poc[name[i][1]]
    then begin 
      maxzrav:=poc[name[i][1]];
      maxcerv:=i;
    end;
  end;
}
  for ch:='A' to 'Z' do
  begin
    if maxzrav<poc[ch]
    then begin 
      maxzrav:=poc[ch];
      maxcerv:=ch;
    end;
  end;
  writeln ('Nejzravejsi cervotoc je '+name[maxcerv]+'.');
        
  readln (r,s,c); 
end;  


end.