A Haskell chess program