program d; var r,s,c,i, max:longint; zerou : array[65..90] of longint; jmena : array[65..90] of string[60]; jmeno : string[60]; zn : char; zb, j : byte; stul : string[255]; begin readln(r,s,c); while(r<>0)and(s<>0)and(c<>0) do begin for i := 65 to 90 do begin zerou[i] := 0; end; for i:= 1 to c do begin readln(jmeno); zn := jmeno[1]; zb := ord(zn); jmena[zb] := jmeno; end; for i := 1 to r do begin readln(stul); for j:=1 to s do begin zn := stul[j]; zb := ord(zn); if zn<>'*' then inc(zerou[zb]); end; end; max := 0; for i := 65 to 90 do begin if zerou[i]>max then begin max := zerou[i]; j := i; end; end; writeln('Nejzravejsi cervotoc je '+jmena[j]+'.'); readln(r,s,c); end; end.