(defun nxor (x y) (+ (logior x y) (logand x y)))
(format t "~a~%" (nxor (read) (read)))