@@ -198,7 +198,7 @@ uniqueIdentifiers ls =
198198 let addIdentifier (nonuniqueIds, uniqueIds) l =
199199 let new = inlineListToIdentifier l
200200 matches = length $ filter (== new) nonuniqueIds
201− new' = new ++ if matches > 0 then show matches else ""
201+ new' = new ++ if matches > 0 then ("-" ++ show matches) else ""
202202 in (new:nonuniqueIds, new':uniqueIds)
203203 in reverse $ snd (foldl addIdentifier ([],[]) $ ls)
204204