package Warn19_Pkg is

   type Bits is array (1 .. 4) of Boolean;
   procedure Init (X : out Bits);

end Warn19_Pkg;