with Chaos.Glossary;
with Chaos.Logos;
with Chaos.Machina;
use Chaos;
procedure Main is
   package Names is new Glossary;
   package Words is new Glossary;
   package Univers is new Logos(Names, Words);
   package Zeus is new Machina(24, Univers);
begin
 
   null;
end Main;

package Chaos is
end Chaos;
 
generic   
package Chaos.Glossary is
 
end Chaos.Glossary;
 
 
with Chaos.Glossary;
generic
   with package Names is new Glossary(<> );
   with package words is new Glossary(<> );
package Chaos.Logos is
 
end Chaos.Logos;
 
 
with Chaos.Logos;
generic
   Width : Positive;
   with package Logos is new Chaos.Logos(<> );
package Chaos.Machina is      
   
end Chaos.Machina;