(let ((vv (make-array 3 :initial-element #\Space)) (v (make-array 6)) (vvi 0) (vi 0))
(loop for char = (read-char nil nil) do
	(if (or (eq char #\Newline) (eq char #\.)) 
	(progn
		;;(format t "<~d>~%" vv)
		(setf (aref v vi) (parse-integer (coerce vv 'string)))
		(setq vvi 0)
		(incf vi)
		(setf vv (make-array 3 :initial-element #\Space))
		(if (= vi 6) (return))
	)
	(progn
		;(format t "vvi=~d char=~c~%" vvi char)
		(setf (aref vv vvi) char)
		(incf vvi)
	)
	)
)
(loop for i from 0 to 2 do
 ;(format 't "<~d>~%" (aref v i))
 (if (< (aref v i) (aref v (+ i 3))) (progn (format t "NO~%") (quit)))
 (if (> (aref v i) (aref v (+ i 3))) (progn (format t "YES~%") (quit)))
)
(format t "YES~%")

)