38
L : Lists_Of_Vectors.List;
...
declare
   Src : Vector;
begin
   Src.Append (New_Item => E);
   ... --populate Src some more as appropriate
   L.Append (New_Item => Empty_Vector);
 
   declare
      procedure Process (Tgt : in out Vector) is
      begin
         Move (Source => Src, Target => Tgt);
      end;
   begin
      Update_Element (Last (L), Process’Access);
   end;
end;