import Data.Bits

xnor :: Int -> Int -> Int
xnor a b = (a .&. b) .|. ((complement a) .&. (complement b))

main = do print (xnor 5 7)