special :: GenParser Char st String
special = do
  char '&'
  x <- many (noneOf "-")
  char '-'
  return $ (map chr . charNums)  x
special :: GenParser Char st String
special = do
  char '&'
  x <- many (noneOf "-")
  char '-'
  return $ (map chr . charNums)  x
special = do
  char '&'
  x <- many (noneOf "-")
  char '-'
  return $ (map chr . charNums)  x