-- |Gets the original name, i.e. the common prefix of an unique name
-- TODO: what about variable names that contain separator
originalName :: Namelike n => n -> n
originalName = mapName $ takeWhile (/= separator)
originalName :: Namelike n => n -> n
originalName = mapName $ takeWhile (/= separator)
originalName = mapName $ takeWhile (/= separator)