1package Test is 2 3type My_Int is range 0 .. 1000; 4type My_Index is range 0 .. 200; 5type My_Int_Array is array (My_Index) of My_Int; 6 7function First_Function (A: My_Int_Array) return My_Int_Array; 8 9function Second_Function (A: My_Index) return My_Index; 10 11end Test;