with Ada.Text_IO, Interfaces;
use  Ada.Text_IO, Interfaces;
 
procedure test is
   package Unsigned_16_IO is new Ada.Text_Io.Modular_IO(Unsigned_16);
   package Unsigned_32_IO is new Ada.Text_Io.Modular_IO(Unsigned_32);
   aa: Unsigned_16 := 1000;
   bb: Unsigned_16 := 6000;
   cc: Unsigned_32;
 
   function xxfunc(x: Unsigned_32; y: Unsigned_32) return Unsigned_32 is
   begin
      return x + y;
   end xxfunc;
 
begin
   cc := xxfunc(aa, bb);
   Unsigned_16_IO.Put(aa, 1);
   Put(" + ");
   Unsigned_16_IO.Put(bb, 1);
   Put(" = ");
   Unsigned_32_IO.Put(cc, 1);
   New_Line;
end test;

d2l0aCBBZGEuVGV4dF9JTywgSW50ZXJmYWNlczsKdXNlICBBZGEuVGV4dF9JTywgSW50ZXJmYWNlczsKCnByb2NlZHVyZSB0ZXN0IGlzCiAgIHBhY2thZ2UgVW5zaWduZWRfMTZfSU8gaXMgbmV3IEFkYS5UZXh0X0lvLk1vZHVsYXJfSU8oVW5zaWduZWRfMTYpOwogICBwYWNrYWdlIFVuc2lnbmVkXzMyX0lPIGlzIG5ldyBBZGEuVGV4dF9Jby5Nb2R1bGFyX0lPKFVuc2lnbmVkXzMyKTsKICAgYWE6IFVuc2lnbmVkXzE2IDo9IDEwMDA7CiAgIGJiOiBVbnNpZ25lZF8xNiA6PSA2MDAwOwogICBjYzogVW5zaWduZWRfMzI7CgogICBmdW5jdGlvbiB4eGZ1bmMoeDogVW5zaWduZWRfMzI7IHk6IFVuc2lnbmVkXzMyKSByZXR1cm4gVW5zaWduZWRfMzIgaXMKICAgYmVnaW4KICAgICAgcmV0dXJuIHggKyB5OwogICBlbmQgeHhmdW5jOwoKYmVnaW4KICAgY2MgOj0geHhmdW5jKGFhLCBiYik7CiAgIFVuc2lnbmVkXzE2X0lPLlB1dChhYSwgMSk7CiAgIFB1dCgiICsgIik7CiAgIFVuc2lnbmVkXzE2X0lPLlB1dChiYiwgMSk7CiAgIFB1dCgiID0gIik7CiAgIFVuc2lnbmVkXzMyX0lPLlB1dChjYywgMSk7CiAgIE5ld19MaW5lOwplbmQgdGVzdDs=