-- | create a generated simple identifier
freeToken :: String -> Token
freeToken str = mkSimpleId $ freeNamePrefix ++ str
freeToken :: String -> Token
freeToken str = mkSimpleId $ freeNamePrefix ++ str
freeToken str = mkSimpleId $ freeNamePrefix ++ str