Problem:
Problem C: コンパイル

東京大学に入学したきたまさ君はTSG(東大スーパーゲーマーズ)というサークルに入った。

このサークルは毎年、駒場祭でゲームを展示しており、きたまさ君もゲームを作成して展示することにした。

きたまさ君の作成するゲームは次のような、よくある落ち物パズルゲームである。

横6マス×縦12マスの格子状のフィールドがあり、各マスにつき1個のブロックを置くことができる。

上からブロックが2つ1組で落下してくる。ブロックには赤・緑・青・黄・紫の5色の基本ブロックとお邪魔ブロックの計6種類がある。プレイヤーはブロックを回転、横移動により操作し、落下位置を変更することができる。

落下してきたブロックがフィールドの床やほかのブロックに衝突すると、その位置にブロックが固定される。

固定されたブロックと同色のブロックが周囲4方向にある場合、それらは互いにくっつく。ただし、お邪魔ブロックは互いにくっつかない。

ブロックが4個以上くっつくと消滅し得点となる。お邪魔ブロックの周囲4方向に存在する基本ブロックが消滅すると、そのお邪魔ブロックも一緒に消滅する。ブロックの消滅は、全てのブロックの落下が終了したタイミングで同時に起こる。

ブロックの消滅により、その上にあったブロックが落下する。このブロックの落下はプレイヤーが操作できない。このとき再びブロックが4個以上くっつくと消滅し、連鎖が起きる。ただし、複数色を同時に消した場合でも、1連鎖扱いとなる。

きたまさ君はこのゲームの大部分のプログラムを書き終えたが、どうしてもブロックがくっついて消滅したときの処理を書くことが出来なかった。そこでサークルの友人であるあなたにその部分のプログラムを書いてもらうことにした。

Input

入力は12行からなる。

入力の i 行目は長さ6の文字列からなり、その j 文字目はフィールドの上から i 行目、左から j 列目のマスの状態を表している。

マスの状態を表す文字は以下の7つのうちのいずれかである。

文字

種類

R

赤

G

緑

B

青

Y

黄

P

紫

O

お邪魔

.

空きマス

また、入力に含まれる全てのブロックは床の上か他のブロックの上に乗っている。

Output

入力の状態から、ルールに従ってブロックを消していった時の連鎖数を計算し、一行で出力せよ。

ブロックが一つも消えない場合は0と出力せよ。

Notes on Test Cases

上記入力形式で複数のデータセットが与えられます。

入力の1行目にデータセットの数Tが与えられます。

各データセットに対して上記出力形式で出力を行うプログラムを作成して下さい。

Sample Input

3
......
......
......
......
......
......
......
......
.RGB..
RGOP..
RGBPB.
RGBPP.
GBRGYP
GBRRYP
BGGRBB
BPRGYY
GGPRRY
BYPPRB
YGGGPB
GYYYPR
YRBRBR
YBRBRB
BRBRBR
BRBRBR
......
......
......
......
......
......
......
......
......
......
..OO..
..OO..

Output for Sample Input

3
18
0

Solution in Ruby (judge verdict: Accepted)

D = [[-1, 0], [1, 0], [0, -1], [0, 1]]

def puyo_rensa(cnt, fld)
  check = 8.times.map{ [false] * 14 }
  res = 0
  (1..6).each do |i|
    (1..12).each do |j|
      if !check[i][j] && fld[i][j] =~ /[^O.]/
        puyo_connector(i, j,fld){ |arr|
          if arr.size >= 4
            arr.each do |s, t|
              D.each do |x, y|
                p, q = s + x, t + y
                check[p][q] = true if fld[p][q] == 'O'
              end
              check[s][t] = true
            end
            res = 1
          end
        }
      end
    end
  end
  (1..6).each do |i|
    fld[i].map!.with_index{ |c, j| c unless check[i][j] }.compact!
    (14 - fld[i].size).times{ fld[i].unshift('.') }
  end
  if res == 1 then puyo_rensa(cnt + 1, fld)
  else cnt
  end
end

def puyo_connector(i, j, fld)
  check = 8.times.map{ [false] * 14 }
  arr = [[i, j]]
  ret = [[i, j]]
  check[i][j] = true
  until arr.empty?
    i, j = arr.shift
    D.each do |x, y|
      p, q = i + x,  j + y
      if !check[p][q] && fld[i][j] == fld[p][q]
        check[p][q] = true
        arr << [p, q]
        ret << [p, q]
      end
    end
  end
  yield(ret)
end

gets.to_i.times do
  fld = 8.times.map{ ['.'] * 14 }
  12.times do |i|
    gets.chomp.split('').each_with_index do |c, j|
      fld[j+1][i+1] = c
    end
  end
  p puyo_rensa(0, fld)
end