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