generateBindingWithIn ::
       MonadState s m => Lens' s NameGenerator -> Binding -> m Binding
generateBindingWithIn accessor prefix = do
    (bnd, gen') <- generateBindingFromGeneratorWith prefix <$> use accessor
    accessor .= gen'
    pure bnd
generateBindingWithIn ::
       MonadState s m => Lens' s NameGenerator -> Binding -> m Binding
generateBindingWithIn accessor prefix = do
    (bnd, gen') <- generateBindingFromGeneratorWith prefix <$> use accessor
    accessor .= gen'
    pure bnd
generateBindingWithIn accessor prefix = do
    (bnd, gen') <- generateBindingFromGeneratorWith prefix <$> use accessor
    accessor .= gen'
    pure bnd