hexSuffix :: Parser Integer
hexSuffix = do
    str <- many1 hexDigit
    oneOf "Hh"
    return $ fst . head . readHex $ str
hexSuffix :: Parser Integer
hexSuffix = do
    str <- many1 hexDigit
    oneOf "Hh"
    return $ fst . head . readHex $ str
hexSuffix = do
    str <- many1 hexDigit
    oneOf "Hh"
    return $ fst . head . readHex $ str