-- Initialize the first guess and game state.
initialGuess :: ([String], GameState)
initialGuess = (guess, initialGameState)
    where guess       = fst $ firstGuess firstGroups
          initialGameState = delete (Set.fromList guess) allChord

-- Delete all the inconsistent possible answers in game state.
initialGuess :: ([String], GameState)
initialGuess = (guess, initialGameState)
    where guess       = fst $ firstGuess firstGroups
          initialGameState = delete (Set.fromList guess) allChord

-- Delete all the inconsistent possible answers in game state.
initialGuess = (guess, initialGameState)
    where guess       = fst $ firstGuess firstGroups
          initialGameState = delete (Set.fromList guess) allChord

-- Delete all the inconsistent possible answers in game state.