popAnc :: Peg Stack
popAnc = do PegState s a w n c b (x:p) <- get
            put $ PegState s a w n c b p
            return x
popAnc :: Peg Stack
popAnc = do PegState s a w n c b (x:p) <- get
            put $ PegState s a w n c b p
            return x
popAnc = do PegState s a w n c b (x:p) <- get
            put $ PegState s a w n c b p
            return x