Distribution.Utils.MapAccum
mapAccumM