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);