import Data.List.Split (splitOn)
import Data.Version (makeVersion, Version)
import Control.Applicative ((<$>))

str2ver :: String -> Version
str2ver = makeVersion . map read . splitOn "."

main :: IO ()
main = do
    oldver <- str2ver <$> getLine
    ver <- str2ver <$> getLine
    putStrLn $ if oldver >= ver then "YES" else "NO"