1. with Ada.Exceptions;         use Ada.Exceptions; 
  2. with Ada.Text_IO;            use Ada.Text_IO; 
  3. with Client_Agents;          use Client_Agents; 
  4. with Specs;                  use Specs; 
  5.  
  6. procedure Dynamic_Servers is 
  7.  
  8.    use Modulo_Core_Range; 
  9.  
  10.    Agents      : array (Core_Range) of Agent; 
  11.    Agent_Index : Core_Range := Core_Range'First; 
  12.  
  13. begin 
  14.    for x in Pix_Range_x loop 
  15.       Agents (Agent_Index).Process (x); 
  16.       Agent_Index := Succ_Mod (Agent_Index); 
  17.    end loop; 
  18.  
  19. exception 
  20.    when E : others => Put_Line (Exception_Information (E)); 
  21.  
  22. end Dynamic_Servers;