evalStack (s, m, c) = runBFSAll $ do
  PegState s _ m _ c _ _ <- execStateT force $ PegState s [] m 0 c M.empty []
  return (s, m, c)
evalStack (s, m, c) = runBFSAll $ do
  PegState s _ m _ c _ _ <- execStateT force $ PegState s [] m 0 c M.empty []
  return (s, m, c)
evalStack (s, m, c) = runBFSAll $ do
  PegState s _ m _ c _ _ <- execStateT force $ PegState s [] m 0 c M.empty []
  return (s, m, c)