startSymbol :: Grammar -> S.State DocLR0 Symbol
startSymbol (Grammar ((lhs:_):_)) = return lhs
startSymbol :: Grammar -> S.State DocLR0 Symbol
startSymbol (Grammar ((lhs:_):_)) = return lhs
startSymbol (Grammar ((lhs:_):_)) = return lhs