13
procedure Op (Container : Container_Type) is
  procedure Process (C : Cursor) is
     E : constant Element_Type := Element (C);
  begin
     Do_Something (E);
  end;  
begin
   Container.Iterate (Process’Access);
end Op;
Passive Iterator