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