-- String を Intにする
toInt :: (String -> Int)
toInt x = read x :: Int

-- 入力を受け取り、 [Int] にする
getInts = do
  x <- getLine
  let y = (map$toInt)$words x -- 半角スペースで分割してIntにする
  return y

compareInts :: [Int] -> String
compareInts inNums
  | a < b = "a < b"
  | a == b = "a == b"
  | otherwise = "a > b"
  where a = inNums !! 0
        b = inNums !! 1

main = do
  inNum <- getInts
  putStrLn $ compareInts inNum
