function Img (Val : in Track_Number_Pt) return String is
   begin
      if Val = null then
         return "";
      else
         return Img (Val.all);
      end if;
   end Img;