Implement result :: Game -> Maybe Result. Rewrite much of ChessRules.hs.