program p1031;
var c,d,e,f,g,h,i,j,k,m,n,mx,my,cx,cy,md,cd:longint;
    a,b:array[1.. 10,1.. 10] of longint;
    hash:array[1.. 10,1.. 10,1.. 10,1.. 10,1.. 4,1.. 4] of boolean;
begin
  readln(n);
  for i:=1 to n do begin
    fillchar(a,sizeof(a),0);
    fillchar(b,sizeof(b),0);
    fiilchar(hash,sizeof(hash),true);
    for j:=1 to 10 do begin
      readln(s);
      for k:=1 to 10 do begin
        if s[k]='*' then a[j,k]:=1;
        if s[k]='M' then begin
          mx:=j;
          my:=k;
        end;
        if s[k]='C' then begin
          cx:=j;
          cy:=k;
        end;
      end;
    end;
    c:=0;
    md:=1;
    cd:=1;
    repeat
      if (mx=cx) and (my=cy) then begin
        c:=1;
      end
      else begin
        if md=1 then begin
          if mx=1 or a[mx-1,my]=1 then begin
            inc(md);
          end;