fun readStr () = let fun scan reader stream = SOME (StringCvt.splitl (not o Char.isSpace) reader (StringCvt.skipWS reader stream)) in valOf (TextIO.scanStream scan TextIO.stdIn) end fun readInt () = valOf (TextIO.scanStream (Int.scan StringCvt.DEC) TextIO.stdIn) exception BadInput fun findAns s t "<" = if s < t then "YES" else "NO" | findAns s t ">" = if s > t then "YES" else "NO" | findAns s t "=" = if s = t then "YES" else "NO" | findAns _ _ _ = raise BadInput val () = let val s = readInt () val t = readInt () val c = readStr () val ans = findAns s t c in print (ans ^ "\n") end