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;