1package body Equal7_Pkg is 2 3 function F (X : Integer) return String is 4 begin 5 return To_String (F (X)); 6 end F; 7 8 function F (X : Integer) return Unbounded_String is 9 Result : Unbounded_String; 10 begin 11 Append (Result, "hello" & X'Img); 12 return Result; 13 end; 14end; 15