$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;