Chess...in Haskell...for fun