1. function Reduce_Concurrent (A : Element_Array) return Element is 
  2.  
  3. begin 
  4.    return Combine (A (A'First), A (A'Last)); 
  5.    -- obviously a somewhat approximate solution 
  6.    --> replace with your concurrent solution. 
  7. end Reduce_Concurrent;