1   with System;
2   package NAT1 is
3      Nat_One_Storage : constant Natural := 1;
4      One_Address : constant System.Address := Nat_One_Storage'Address;
5   end;
6