1. with Specs; use Specs; 
  2.  
  3. package Central_Server is 
  4.  
  5.    task Server is 
  6.       entry Compute (Job : Jobs; Diverge_Column : out Natural_Array); 
  7.    end Server; 
  8.  
  9. end Central_Server;