1package prefix1 is 2 type Arr is array (1..10) of Natural; 3 type T is tagged null record; 4 function Func (Object : T) return Arr; 5end prefix1; 6