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