RosettaCodeData/Task/Hamming-numbers/Ada/hamming-numbers-3.ada

   Ada.Text_IO.Put_Line ("3) 1_000_000st Hamming number: " &
      Ada.Strings.Unbounded.To_String (My_Big_Numbers.String_Conversion.Big_Unsigned2UString (Big_Get_Hamming (1_000_000))));