LR0 :: Grammar -> DocLR0
runLR0 g =
  snd (runState (buildLR0 g) (initialDocLR0 g))



runLR0 :: Grammar -> DocLR0
runLR0 g =
  snd (runState (buildLR0 g) (initialDocLR0 g))
runLR0 g =
  snd (runState (buildLR0 g) (initialDocLR0 g))