{-
(+>>) :: AppendParseResult a => ABC.Parser b -> ABC.Parser a -> ABC.Parser a
p +>> q = p *> (p **>> q)

(**>>) :: AppendParseResult a => ABC.Parser b -> ABC.Parser a -> ABC.Parser a
p **>> q = (p +>> q) <|> q

(+<<) :: AppendParseResult a => ABC.Parser a -> ABC.Parser b -> ABC.Parser a
p +<< q = p >>= \ a -> appendPR a <$> (p **<< q)

(**<<) :: AppendParseResult a => ABC.Parser a -> ABC.Parser b -> ABC.Parser a
p **<< q = (p +<< q) <|> (q *> return emptyPR)
---}
-------------------------------

pLbs :: BS.ByteString -> ABC.Parser BSL.ByteString
pLbs lbs = BSL.fromStrict <$> ABC.string lbs
pLbs :: BS.ByteString -> ABC.Parser BSL.ByteString
pLbs lbs = BSL.fromStrict <$> ABC.string lbs
pLbs lbs = BSL.fromStrict <$> ABC.string lbs