initBoard :: Board
initBoard = [E, E, E,
             E, E, E,
             E, E, E]
initBoard :: Board
initBoard = [E, E, E,
             E, E, E,
             E, E, E]
initBoard = [E, E, E,
             E, E, E,
             E, E, E]