var
al:char;
ab,bb,ac:string;
ar:array[1..100,1..100] of char;
s,r,z,i,j,k:integer;
aaa:boolean;
procedure f(x,y:integer;ab:string);
var
i:longint;
begin
if r-y+1>=k then
   begin
     ac:=ab;
     for i:=y+1 to y+k-1 do
        begin
         ac:=ac+ar[x,i];
        end;
     if ac=bb then aaa:=true;
   end;

if s-x+1>=k then
   begin
     ac:=ab;
     for i:=x+1 to x+k-1 do
        begin
         ac:=ac+ar[i,y];
        end;
     if bb=ac then aaa:=true;
   end;

if y>=k then
   begin
     ac:=ab;
     for i:=y-1 downto y-k+1 do
       begin
        ac:=ac+ar[x,i]
       end;
     if bb=ac then aaa:=true;
   end;

if x>=k then
   begin
      ac:=ab;
      for i:=x-1 downto x-k+1 do
         begin
           ac:=ac+ar[i,y];
         end;
      if bb=ac then aaa:=true;
   end;
if (r-y+1>=k) and (s-x+1>=k) then
  begin
    ac:=bb;
    for i:=1 to k-1 do
       begin
         ac:=ac+ar[x+i,y+i];
       end; 
    if ac=bb then aaa:=true;
  end;

if (y>=k) and (x>=k) then
  begin
   ac:=bb;
   for i:=1 to k-1 do
    begin
      ac:=ac+ar[x-i,y-i];
    end;
   if ac=bb then aaa:=true;
  end;
if (s-x+1>=k) and (y>=k) then
 begin                 
   ac:=bb;
    for i:=1 to k-1 do
     begin
      ac:=ac+ar[x+i,y-i];
     end;
    if ac=bb then aaa:=true;
 end;

if (x>=k) and (r-y+1>=k) then
   begin    
    ac:=bb;
     for i:=1 to k-1 do
       begin
        ac:=ac+ar[x-i,y+1];
       end;
     if ac=bb then aaa:=true;
   end;

end;
begin
readln(s,r);
for i:=1 to s do
  begin
    for j:=1 to r do
       begin
         read(ar[i,j]);
         if j<>r then read(al);
       end;
    readln;
  end;
readln(z);
for i:=1 to z do
   begin
      readln(bb);
      k:=length(bb);
      ab:=bb[1];
      aaa:=false;
      for j:=1 to s do
        begin
          for i:=1 to r do
             begin
               if ab=ar[i,j] then
                 begin
                  f(i,j,ab);
                 end;
             end;
        end;
       if aaa=true then
            writeln(bb,' ','T');
   end;
 readln;
end.