with text_io,integer_io; use text_io,integer_io;
with Brackets,Brackets_io; use Brackets,Brackets_io;
with Bracket_Monomials; use Bracket_Monomials;
with Bracket_Monomials_io; use Bracket_Monomials_io;
procedure ts_brackmons is
procedure Main is
d,m : natural;
bm,bm_last : Bracket_Monomial;
begin
put("GIve the number of entries in the brackets : "); get(d);
put("Give the number of brackets : "); get(m);
for i in 1..m loop
declare
b : Bracket(1..d);
si : integer;
begin
put("Give "); put(d,1); put(" numbers for the ");
put(i,1); put("th bracket : "); get(b);
Multiply(bm,b);
end;
end loop;
put_line("The bracket monomial : "); put(bm); new_line;
end Main;
begin
Main;
end ts_brackmons;