Chess. In Haskell!