program cervotoci;
var jmena:array[1..26] of string[61];
    radek:string[255];
    vysl:array["A".."Z"] of integer;
    a,b,c:integer;
    i,j:integer;
    {prom.pro vyber maxima}
    pom:array[1..26] of integer;
    max:integer;
    in_array:integer;
    pomi : char;
begin
  readln(a,b,c);
  while not((a=0) and (b=0) and (c=0)) do begin
  for pomi:="A" to "Z" do vysl[pomi]:=0;
    for i:=1 to c do readln(jmena[i]);
    for i:=1 to a do begin
      readln(radek);
      for j:=1 to b do if (radek[j]<>'*') then inc(vysl[radek[j]]);
    end;
    {zjisteni maxima}
    in_array:=0;max:=0;     
    for i:=1 to c do begin
      if vysl[jmena[i][1]]>max then begin
        max:=vysl[jmena[i][1]];
	in_array:=1;
	pom[in_array]:=i;
      end else 
        if vysl[jmena[i][1]]=max then begin
        in_array:=in_array+1;
	pom[in_array]:=i;
      end;
    end;
    for i:=1 to in_array do begin
      writeln("Nejzravejsi cervotoc je ",jmena[pom[i]],".");
    end;  
    writeln;
    {nacteni dalsiho}
    readln(a,b,c);
  end;
end.