A Reversi Game Implemented by Haskell