xor <- function(x, y) { (x | y) & !(x & y) }
