import Data.Char

fst' :: [String] -> String
fst' [] = ""
fst' (x : xs) = x

sec :: [String] -> String
sec []  = ""
sec (x1:x2:xs) = x2

thd :: [String] -> String
thd [] = ""
thd (x1:x2:x3:xs) = x3

judge :: Int -> Int -> String -> String
judge s t c 
    | c == "<" = if (s < t) then "YES" else "NO"
    | c == ">" = if (s > t) then "YES" else "NO"
    | c == "=" = if (s == t) then "YES" else "NO"

main = do
    line <- getLine
    let l = words line 
        s = read (fst' l) :: Int
        t = read (sec l) :: Int
        c = thd l
    putStrLn $ judge s t c