- lookupVar var
                   c1 <- extendScope (compile' csq)
                   c2 <- extendScop
genLabel :: State CompileState Label
genLabel = do
  lb <- use labels
  labels += 1
  return $ Label lb
genLabel = do
  lb <- use labels
  labels += 1
  return $ Label lb