-- | Parse an octal digit.
octDigit :: Stream s Char =>  Parser s Char
octDigit = satisfy isOctDigit
octDigit :: Stream s Char =>  Parser s Char
octDigit = satisfy isOctDigit
octDigit = satisfy isOctDigit