4.3BSD/usr/contrib/icon/libtest/t-bitops.icn

link "../ilib/bitops"

procedure main()
   while b1 := bitstring(read()) do {
      b2 := bitstring(read()) | break
      write(decimal(b1))
      write(decimal(b2))
      write("and=",and(b1,b2))
      write("not1=",neg(b1))
      write("not2=",not(b2))
      write("or=",or(b1,b2))
      write("exor=",exor(b1,b2))
      }
end