showLR0 :: [State] -> String
showLR0 states =
  unlines (map showState states)
showLR0 :: [State] -> String
showLR0 states =
  unlines (map showState states)
showLR0 states =
  unlines (map showState states)