hidingAllAnc f = do PegState s a w n c b p <- get
                    put $ PegState s a w n c b []
                    f
                    PegState s' a' w' n' c' b' p' <- get
                    put $ PegState s' a' w' n' c' b' p
hidingAllAnc f = do PegState s a w n c b p <- get
                    put $ PegState s a w n c b []
                    f
                    PegState s' a' w' n' c' b' p' <- get
                    put $ PegState s' a' w' n' c' b' p
hidingAllAnc f = do PegState s a w n c b p <- get
                    put $ PegState s a w n c b []
                    f
                    PegState s' a' w' n' c' b' p' <- get
                    put $ PegState s' a' w' n' c' b' p