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