(defvar H)
(defvar W)
(defvar temp)
(setq temp (read-from-string (concatenate 'string "(" (read-line) ")")))
(setq H (nth 0 temp))
(setq W (nth 1 temp))
;(print H)
;(print W)
(format 't (if (> H W) "TATE~%" "YOKO~%"))