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

Fold pairs into a map.