configuration Chat is

   pragma Version (False);
   pragma Starter (None);

   pragma Boot_Server ("tcp", "localhost:5557");

   ChatServ : Partition := (Broker);
   ChatTalk : Partition;

   procedure Server is in ChatServ;

   procedure Client;
   for ChatTalk'Main use Client;

end Chat;