fun readInt () = valOf (TextIO.scanStream (Int.scan StringCvt.DEC) TextIO.stdIn) val () = let val a1 = readInt () val a2 = readInt () val a3 = readInt () val a4 = readInt () val ans = if a1 < a2 andalso a3 > a4 then "YES" else "NO" in print (ans ^ "\n") end