Incomplete toy chess engine in Haskell