module Main where

    import Debug.Trace
    import Data.Ord
    
    solve :: Int -> Int -> String
    solve a b = case compare a b of
        LT -> "a < b"
        GT -> "a > b"
        EQ -> "a == b"
    
    readLine:: IO [Int]
    readLine = fmap (map read . words) getLine
    
    main :: IO() 
    main = do
        [a, b] <- readLine
        let ans = solve a b
        putStrLn ans
    
