with Ada.Containers.Indefinite_Vectors;
with Ada.Containers.Vectors;

package Table_IO with Preelaborate is

   type Table is tagged private;

   procedure Append (T : in out Table; Cell : String);

   procedure New_Row (T : in out Table);

   procedure Print (T : Table; Separator : String := " ");

private

   package Natural_Vectors is new Ada.Containers.Vectors (Positive, Natural);

   package String_Vectors is new Ada.Containers.Indefinite_Vectors (Positive,
                                                                    String);
   subtype Row is String_Vectors.Vector;
   use all type Row;

   package Row_Vectors is new Ada.Containers.Vectors (Positive, Row);

   type Table is tagged record
      Next_Column : Positive := 1;
      Rows        : Row_Vectors.Vector;
      Max_Widths  : Natural_Vectors.Vector;
   end record;

end Table_IO;