readDigits = map read <$> words <$> getLine :: IO [Int]
main :: IO ()
main =
    putStrLn =<< fn <$> readDigits
    where
    fn [a,b]
        | a < b = "a < b"
        | a > b = "a > b"
        | a == b = "a == b"