main :: IO ()
main = interact $ solve . words

solve :: [String] -> String
solve [s, t] = if a >= b then "YES" else "NO"
    where
        (x1:_:x2:_:x3:_) = s
        (y1:_:y2:_:y3:_) = t
        ka = (read :: String -> Int) [x1]
        se = (read :: String -> Int) [x2]
        ki = (read :: String -> Int) [x3]
        ha = (read :: String -> Int) [y1]
        te = (read :: String -> Int) [y2]
        na = (read :: String -> Int) [y3]
        a = ka * 100000000 + se * 10000 + ki
        b = ha * 100000000 + te * 10000 + na