'test load
'test import

"binary" describe

  (2 3 bitand 2 ==) assert

  (123 bitnot -124 ==) assert

  (2 3 bitor 3 ==) assert

  (2 3 bitxor 1 ==) assert

  (2 3 shl 16 ==) assert

  (16 3 shr 2 ==) assert
  
  report
  clear-stack