main :: IO ()
main = do 
  [ra, rb] <- fmap  words getLine
  let a = read ra :: Int
  let b = read rb :: Int
  compare' a b

compare' :: Int -> Int -> IO ()
compare' a b | a < b = putStrLn $ (show a) ++  "<" ++ (show b)
            | a > b = putStrLn $ (show a) ++  ">" ++ (show b)
            | otherwise = putStrLn $ (show a) ++  "==" ++ (show b)