nextConstId :: Monad m => BuilderT g m ConstId
nextConstId = do
    id <- use bs_next_const
    bs_next_const += 1
    return id
nextConstId :: Monad m => BuilderT g m ConstId
nextConstId = do
    id <- use bs_next_const
    bs_next_const += 1
    return id
nextConstId = do
    id <- use bs_next_const
    bs_next_const += 1
    return id