whoseTurn :: Board -> Player
whoseTurn b | even $ numEs b = Oer
            | otherwise = Xer
whoseTurn :: Board -> Player
whoseTurn b | even $ numEs b = Oer
            | otherwise = Xer
whoseTurn b | even $ numEs b = Oer
            | otherwise = Xer