17
procedure Op (Container : Container_Type) is
  procedure Process (C : Cursor) is
     E : constant Element_Type := Element (C);
  begin
     Do_Something (E);
  end;  
begin
   Container.Reverse_Iterate (Process’Access);
end Op;
Passive Iteration In Reverse