escapeOct :: Parser ByteString
escapeOct = fmap fst $ match $ do
  char '\\'
  Parser.option "" "0"
  satisfy $ inClass "0-7"
  Parser.option () $ satisfy (inClass "0-7") *> pure ()
  Parser.option () $ satisfy (inClass "0-7") *> pure ()
escapeOct :: Parser ByteString
escapeOct = fmap fst $ match $ do
  char '\\'
  Parser.option "" "0"
  satisfy $ inClass "0-7"
  Parser.option () $ satisfy (inClass "0-7") *> pure ()
  Parser.option () $ satisfy (inClass "0-7") *> pure ()
escapeOct = fmap fst $ match $ do
  char '\\'
  Parser.option "" "0"
  satisfy $ inClass "0-7"
  Parser.option () $ satisfy (inClass "0-7") *> pure ()
  Parser.option () $ satisfy (inClass "0-7") *> pure ()