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