program d;
var r, s, c: integer;
var jmena: array[char] of string;
    jmeno: string;
    pocty: array[char] of integer;
    i: char;
    a, b: integer;
    radek: string;
    maxim: integer;
    maxc: char;
begin
  readln(r, s, c);
  while (r<>0) and (s<>0) and (c<>0) do begin
    for i:='A' to 'Z' do pocty[i]:=0;
    for a:=1 to c
    do begin
      readln(jmeno);
      jmena[jmeno[1]]:=jmeno;
    end;
    for a:=1 to r do begin
      readln(radek);
      for b:=1 to c 
      do if radek[c]<>'*'
         then Inc(pocty[radek[c]], 1);
    end;
    maxim:=0;
    for i:='A' to 'Z' 
    do if pocty[i]>maxim then begin
      maxim:=pocty[i];
      maxc:=i;
    end;
    writeln('Nejzravejsi cervotoc je '+jmena[maxc]+'.');
    readln(r, s, c); 
  end;
end.