nextRef :: Monad m => BuilderT g m Ref
nextRef = do
    ref <- use (bs_circ . circ_maxref)
    bs_circ . circ_maxref += 1
    return (Ref ref)
nextRef :: Monad m => BuilderT g m Ref
nextRef = do
    ref <- use (bs_circ . circ_maxref)
    bs_circ . circ_maxref += 1
    return (Ref ref)
nextRef = do
    ref <- use (bs_circ . circ_maxref)
    bs_circ . circ_maxref += 1
    return (Ref ref)