Experimentally replace Data.Map with ListMap.
Change chess board representation back to Data.Map.Strict.