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