main = getContents >>= putStrLn . solve . map read . lines . filter (/='.')

solve :: [Integer] -> String
solve [x, y]
	| x >= y = "YES"
	| otherwise = "NO"