Othello program with Haskell