with Adam.Results;
use Adam.Results;
package Adam.Web is
   
   procedure Web_Search(From_Domain_Name : in     String;
			With_Address     : in     String;
			Timeouts         : in     Duration;
			Result           :    out Search_Result_Type);

end Adam.Web;