hexLit :: Parser Integer
hexLit = (=<<) (readParse . fst) $ match $ do
  "0x" <|> "0X"
  Parser.takeWhile (inClass "A-Fa-f0-9")
hexLit :: Parser Integer
hexLit = (=<<) (readParse . fst) $ match $ do
  "0x" <|> "0X"
  Parser.takeWhile (inClass "A-Fa-f0-9")
hexLit = (=<<) (readParse . fst) $ match $ do
  "0x" <|> "0X"
  Parser.takeWhile (inClass "A-Fa-f0-9")