mapFold =
    foldl (\map (k, v) -> Map.insert k v map ) Map.empty a1
mapFold =
    foldl (\map (k, v) -> Map.insert k v map ) Map.empty a1
mapFold =
    foldl (\map (k, v) -> Map.insert k v map ) Map.empty a1