Continuing exploration of Control.Lens.Internal.While