# Data.Bits(Bits(
#   (.&.), (.|.), xor, complement,
#   bit, setBit, clearBit, complementBit, testBit,
#   shift, shiftL, shiftR, rotate, rotateL, rotateR,
#   bitSize, isSigned ))
# bits
bits@and = zipWith and
bits@or = zipWith or
bits@xor = zipWith xor
bits@not = map not