map -package:basement -package:base-prelude -package:bytestring -is:exact package:foldl is:exact

Fold pairs into a map.