$func Bit-Or     s.Int1 s.Int2 = s.Int;
$func Bit-And    s.Int1 s.Int2 = s.Int;
$func Bit-Xor    s.Int1 s.Int2 = s.Int;

$func Bit-Not    s.Int         = s.Int;

$func Bit-Left   s.Int s.Shift = s.Int;
$func Bit-Right  s.Int s.Shift = s.Int;


$func? Bit-Test s.Int s.Pos = ;

$func Bit-Set   s.Int s.Pos = s.Int;
$func Bit-Clear s.Int s.Pos = s.Int;
$func Bit-Print s.Int = ;
$func Bit-Length s.Int = s.Len;