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);
   a: Unsigned_8  := 16#12#;
   b: Unsigned_8  := 16#34#;
   c: Unsigned_16 := 16#0000#;
 
begin
   c := c or Shift_Left(Interfaces.Unsigned_16(a), 8);
   c := c or Shift_Left(Interfaces.Unsigned_16(b), 0);
   Put("c is ");
   Unsigned_16_IO.Put(Item => c, Base => 16);
   New_Line;
end test;

d2l0aCBBZGEuVGV4dF9JTywgSW50ZXJmYWNlczsKdXNlICBBZGEuVGV4dF9JTywgSW50ZXJmYWNlczsKIApwcm9jZWR1cmUgdGVzdCBpcwogICBwYWNrYWdlIFVuc2lnbmVkXzE2X0lPIGlzIG5ldyBBZGEuVGV4dF9Jby5Nb2R1bGFyX0lPKFVuc2lnbmVkXzE2KTsKICAgYTogVW5zaWduZWRfOCAgOj0gMTYjMTIjOwogICBiOiBVbnNpZ25lZF84ICA6PSAxNiMzNCM7CiAgIGM6IFVuc2lnbmVkXzE2IDo9IDE2IzAwMDAjOwogCmJlZ2luCiAgIGMgOj0gYyBvciBTaGlmdF9MZWZ0KEludGVyZmFjZXMuVW5zaWduZWRfMTYoYSksIDgpOwogICBjIDo9IGMgb3IgU2hpZnRfTGVmdChJbnRlcmZhY2VzLlVuc2lnbmVkXzE2KGIpLCAwKTsKICAgUHV0KCJjIGlzICIpOwogICBVbnNpZ25lZF8xNl9JTy5QdXQoSXRlbSA9PiBjLCBCYXNlID0+IDE2KTsKICAgTmV3X0xpbmU7CmVuZCB0ZXN0Ow==