import qualified Data.Text as T

splitOn d s = map T.unpack $ T.splitOn (T.pack d) (T.pack s)

main = do
  k <- map read' . splitOn "." <$> getLine
  v <- map read' . splitOn "." <$> getLine
  putStrLn $ if v <= k then "YES" else "NO"
  where
    read' = read :: String -> Int