newLabel :: GenerateJvm e String
newLabel = do
  last <- gets lastLabel
  modify $ \st -> st {lastLabel = last + 1}
  return $ "dummy__" ++ show last
newLabel :: GenerateJvm e String
newLabel = do
  last <- gets lastLabel
  modify $ \st -> st {lastLabel = last + 1}
  return $ "dummy__" ++ show last
newLabel = do
  last <- gets lastLabel
  modify $ \st -> st {lastLabel = last + 1}
  return $ "dummy__" ++ show last