fun readInt () = valOf (TextIO.scanStream (Int.scan StringCvt.DEC) TextIO.stdIn) fun readChar () = valOf (TextIO.scanStream Char.scan TextIO.stdIn) val () = let val a0 = readInt () val _ = readChar () val b0 = readInt () val _ = readChar () val c0 = readInt () val a1 = readInt () val _ = readChar () val b1 = readInt () val _ = readChar () val c1 = readInt () val ans = case (Int.compare (a0, a1), Int.compare (b0, b1), Int.compare (c0, c1)) of (LESS, _, _) => "NO" | (EQUAL, LESS, _) => "NO" | (EQUAL, EQUAL, LESS) => "NO" | (_, _, _) => "YES" in print (ans ^ "\n") end