#!/usr/bin/perl6
my uint8 $a = 0x12;
my uint8 $b = 0x34;
my uint16 $c = 0x0000;
$c = $c +| $a +< 8;
$c = $c +| $b +< 0;
say $c.fmt('$c is 0x%x');
IyEvdXNyL2Jpbi9wZXJsNgpteSB1aW50OCAgJGEgPSAweDEyOwpteSB1aW50OCAgJGIgPSAweDM0OwpteSB1aW50MTYgJGMgPSAweDAwMDA7CgokYyA9ICRjICt8ICRhICs8IDg7CiRjID0gJGMgK3wgJGIgKzwgMDsKc2F5ICRjLmZtdCgnJGMgaXMgMHgleCcpOw==