-- Parse a balanced TeX group as a flat token list including delimiters.
group :: HandleTeXIO m => LexerT m [Token]
group = (fmap (++) . (:)) <$> bgroup <*> tokens <*> count 1 egroup
group :: HandleTeXIO m => LexerT m [Token]
group = (fmap (++) . (:)) <$> bgroup <*> tokens <*> count 1 egroup
group = (fmap (++) . (:)) <$> bgroup <*> tokens <*> count 1 egroup