let concat_map_list key values map = let old = map_lookup_list key map in StringMap.add key (values@old) map