{-# LANGUAGE OverloadedStrings #-}
import qualified Data.Text as T
import Control.Applicative
main = (\x -> (\y -> putStrLn $ if x < y then "NO" else "YES" ) =<< map (read . T.unpack :: T.Text -> Int) . T.splitOn "." . T.pack <$> getLine) =<< map (read . T.unpack :: T.Text -> Int) . T.splitOn "." . T.pack <$> getLine