charNum :: Parser Integer
charNum = do
    char '\''
    c <- anyChar
    char '\''
    return $ toInteger (ord c)
charNum :: Parser Integer
charNum = do
    char '\''
    c <- anyChar
    char '\''
    return $ toInteger (ord c)
charNum = do
    char '\''
    c <- anyChar
    char '\''
    return $ toInteger (ord c)