bind nm l = modify $ \(PegState s a w n c b p) ->
              PegState s a (minsert nm (f l) w) n c b p
  where f l = do w <- popArg
                 --appendStack l
                 pushStack $ L l
                 pushStack $ W "$#"
                 force
                 pushArg w
bind nm l = modify $ \(PegState s a w n c b p) ->
              PegState s a (minsert nm (f l) w) n c b p
  where f l = do w <- popArg
                 --appendStack l
                 pushStack $ L l
                 pushStack $ W "$#"
                 force
                 pushArg w
bind nm l = modify $ \(PegState s a w n c b p) ->
              PegState s a (minsert nm (f l) w) n c b p
  where f l = do w <- popArg
                 --appendStack l
                 pushStack $ L l
                 pushStack $ W "$#"
                 force
                 pushArg w