my $m0; vec($m0, $_, 1) = 1 for 0,2,8,9,10;

##</code><code>##

my $m0l; vec($m0l, $_,   1) = 1 for 0,2;
my $m0h; vec($m0h, $_-8, 1) = 1 for 8,9,10;
my $m0 = $m0l . $m0h;

##</code><code>##

unpack "B16", scalar reverse $mo

##</code><code>##

sprintf "%016b", unpack "v", $m0