Capture result as well as matched tokens about earley HOT 2 OPEN

match :: Prod r e t a -> Prod r e t ([t], a)
match = \case
  Pure a -> Pure ([], a)
  Terminal p c ->
    Terminal (\t -> (t, ) <$> p t) (biliftA2 (flip (:)) id <$> match c)
  -- NonTerminal :: !(r e t a) -> !(Prod r e t (a -> b)) -> Prod r e t b
  NonTerminal _ _ -> error "match: NonTerminal"
  Alts as c ->
    -- Alts (match <$> as) (((\(ts, f) (t, x) -> (t ++ ts, f x))) <$> match c)
    Alts (match <$> as) (biliftA2 (flip (++)) id <$> match c)
  Many a c -> Many
    (match a)
    ((\(t, f) (unzip -> (ts, xs)) -> (concat (ts ++ [t]), f xs)) <$> match c)
  Named p n -> Named (match p) n

position :: Prod r e t Int