let add_map_unique key value (map, collisions) =
    if StringMap.mem key map
        then (map, key::collisions)
        else (StringMap.add key value map, collisions)