main = do
    (i1,i2) <- getTwoInt
    putStrLn $ mycompare i1 i2

mycompare a b
    | a < b = "a < b"
    | a > b = "a > b"
    | a == b = "a == b"

getTwoInt = do
    l <- getLine
    let ss = split ' ' l
    let (i1:i2:[]) = (map read ss) :: [Int]
    return (i1,i2)

split d = _split d []
_split d cs "" = cs
_split d cs s = _split d (cs ++ [token d s]) (drop (length(token d s) + 1) s)
 
token d = _token d ""
_token d t "" = t
_token d t (x:xs) = if (x == d) then t else _token d (t ++ [x]) xs
