fromList :: (Ord k, Ord v) => [(k, v)] -> Multimap k v
fromList = Prelude.foldr f empty
  where
    f (k, v) = insert k v
fromList :: (Ord k, Ord v) => [(k, v)] -> Multimap k v
fromList = Prelude.foldr f empty
  where
    f (k, v) = insert k v
fromList = Prelude.foldr f empty
  where
    f (k, v) = insert k v