Problem:
平面上の図形

縦 8、横 8 のマスからなる図 1 のような平面があります。

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

図１

この平面上に、以下の A から G の図形のどれかが一つだけ置かれています。

A

■

■

■

■

B

■

■

■

■

C

■

■

■

■

D

■

■

■

■

E

■

■

■

■

F

■

■

■

■

G

■

■

■

■

たとえば、次の図 2 の例では E の図形が置かれています。

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

■

■

□

□

□

□

□

□

□

■

■

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

図２

平面の中で図形が占めているマスを 1、占めていないマスを 0 で表現した数字の列を読み込んで、置かれている図形の種類（A〜G）を出力するプログラムを作成してください。

ただし、ひとつの平面に置かれている図形は必ず１つで、複数の図形が置かれていることはありません。また、A〜G で表される図形以外のものが置かれていることはありません。

Input

入力は複数のデータセットからなります。

１つのデータセットとして、平面の中で図形が占めているマスを 1、占めていないマスを 0 で表現した 8 文字からなる 8 つの文字列が与えられます。例えば、図 2 に対応する文字列の並びは次のようになります。

0

0

0

0

0

0

0

0

0

0

0

0

0

0

0

0

0

1

1

0

0

0

0

0

0

0

1

1

0

0

0

0

0

0

0

0

0

0

0

0

0

0

0

0

0

0

0

0

0

0

0

0

0

0

0

0

0

0

0

0

0

0

0

0

データセットの間は１つの空行で区切られています。データセットの数は 50 を超えません。

Output

各データセットごとに、平面に与えられた図形の種類（A〜G のいずれか）を１行に出力してください。

Sample Input

00000000
00000000
01100000
00110000
00000000
00000000
00000000
00000000

00011110
00000000
00000000
00000000
00000000
00000000
00000000
00000000

00000000
00000000
00110000
00110000
00000000
00000000
00000000
00000000

Output for the Sample Input

E
C
A

Solution in Ruby (judge verdict: Accepted)

def a?(i, j, lines)
  return false if i > 6 || j > 6
  [lines[i+1][j], lines[i][j+1], lines[i+1][j+1]].all? {|e| e == 1}
end

def b?(i, j, lines)
  return false if i > 4
  [lines[i+1][j], lines[i+2][j], lines[i+3][j]].all? { |e| e == 1 }
end

def c?(i, j, lines)
  return false if j > 4
  [lines[i][j+1], lines[i][j+2], lines[i][j+3]].all? { |e| e == 1 }
end

def d?(i, j, lines)
  return false if j < 1 || i > 5
  [lines[i+1][j-1], lines[i+1][j], lines[i+2][j-1]].all? { |e| e == 1 }
end

def e?(i, j, lines)
  return false if i > 6 || j > 5
  [lines[i][j+1], lines[i+1][j+1], lines[i+1][j+2]].all? { |e| e == 1 }
end

def f?(i, j, lines)
  return false if i > 5 || j > 6
  [lines[i+1][j], lines[i+1][j+1], lines[i+2][j+1]].all? { |e| e == 1 }
end

def g?(i, j, lines)
  return false if j < 1 || j > 6 || i > 6
  [lines[i][j+1], lines[i+1][j-1], lines[i+1][j]].all? { |e| e == 1 }
end

def form?(i, j, lines)
  if a?(i, j, lines)
    'A'
  elsif b?(i, j, lines)
    'B'
  elsif c?(i, j, lines)
    'C'
  elsif d?(i, j, lines)
    'D'
  elsif e?(i, j, lines)
    'E'
  elsif f?(i, j, lines)
    'F'
  elsif g?(i, j, lines)
    'G'
  end
end

def foo
  while true
    lines = []
    while gets
      break if $_ =~ /^\n/
      lines << $_.split('').map(&:to_i)
      break if lines.size == 8
    end

    next if $_ =~ /^\n/
    break if $_.nil?

    form = nil
    lines.each.with_index do |line, i|
      line.each.with_index do |char, j|
        next if char.zero?
        form = form?(i, j, lines)
        break if !form.nil?
      end
      break if !form.nil?
    end
    puts form
  end
end

foo