$use StdIO Bit;
Main = <PrintLN <Bit-Left 35 -3>>,
       <PrintLN <Bit-Left -35 -3>>,
       <PrintLN <Bit-Left -35 3>>,
       <PrintLN <Bit-Right 35 -3>>,
       <PrintLN <Bit-Right 35 3>>,
       <PrintLN <Bit-Print -35>>,
       <PrintLN <Bit-And -35 -3>>,
       <PrintLN <Bit-And -35 3>>,
       <PrintLN <Bit-And 35 -3>>,
       <PrintLN <Bit-Length -35>>,
       <PrintLN <Bit-Length 3>>;