1 2 3 4 5 6 7 8 9
package Modular4_Pkg is type Word is mod 2**48; Zero : constant Word := 0; function F return Word; end Modular4_Pkg;