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