RosettaCodeData/Task/Bitwise-operations/Oforth/bitwise-operations.fth

: bitwise(a, b)
   a b bitAnd println
   a b bitOr println
   a b bitXor println
   a bitLeft(b) println
   a bitRight(b) println ;