popStack       p n     = ParsingData (accepted p) (parsingError p) (acceptedValue p) (pop (parsingStack p) n)
popStack       p n     = ParsingData (accepted p) (parsingError p) (acceptedValue p) (pop (parsingStack p) n)
popStack       p n     = ParsingData (accepted p) (parsingError p) (acceptedValue p) (pop (parsingStack p) n)