solve :: [Int] -> String solve (n:p:_) = if p == (n * p) then "=" else "!=" main :: IO () main = interact $ solve . map read .words