import Data.List.Split
import Control.Applicative
main = (\x -> (\y -> putStrLn $ if x < y then "NO" else "YES" ) =<< map (read :: String -> Int) . splitOn "." <$> getLine) =<< map (read :: String -> Int) . splitOn "." <$> getLine