-- | Join alternative grammars in parallel.
coproduct :: [Grammar p a b] -> Grammar p a b
coproduct = foldl1 (<>)
coproduct :: [Grammar p a b] -> Grammar p a b
coproduct = foldl1 (<>)
coproduct = foldl1 (<>)