let add_map_list key value map = let old = map_lookup_list key map in StringMap.add key (value::old) map