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

solve :: [String] -> String
solve [a,b] = if head a < head b 
                then "NO"
                else if (head $ drop 2 a) < (head $ drop 2 b) 
                        then "NO"
                        else if (head $ drop 4 a) < (head $ drop 4 b)
                            then "NO"
                            else "YES"