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