generic
   type Full_Range is range <>;
   No_Of_Sub_Ranges : Positive;

package Sub_Ranges is

function Range_First 
(
Range_No
: Positive)
return Full_Range;

function Range_Last  
(
Range_No
: Positive)
return Full_Range;