package Directory is
    function Present (Name_Pattern: String) return Boolean;
    generic
        with procedure Visit (Full_Name, Phone_Number, Address: String;
                              Stop: out Boolean);
    procedure Iterate (Name_Pattern: String);
end Directory;