1 2 3 4 5
with System; use System; package Foreigns is function Find_Foreign (Name : String) return Address; end Foreigns;