with System; use System;

package Foreigns is
   function Find_Foreign (Name : String) return Address;
end Foreigns;