main :: IO () main = interact $ solve . map read . words solve :: [Int] -> String solve [n, p] | p == 0 = "=" | n == 1 = "=" | otherwise = "!="