1generic 2 type C is private; 3 type S is array (Positive range <>) of C; 4 with function Encode (Val : S) return String; 5 6procedure Encode_String1_Pkg (Val : S); 7