import Data.Char

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

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

judge :: String -> String -> String
judge a b = 
    let 
        n1 = read a :: Int
        n2 = read b :: Int
    in 
        if n1 > n2 then "No" else "Yes"
    
main :: IO()
main = do
    line <- getLine
    let
        ab = words line
        a = fs ab
        b = sec ab
    putStrLn $ judge a b