97
type Data_Type (Word_Length : Positive) is record
Word
: String (1 .. Word_Length);
-- key-part
Count : Natural;
-- payload
end record;
package Data_Vectors is new Ada.Containers.Indefinite_Vectors
(Positive,
Data_Type);