; H < W ならば YOKO を W < H ならば TATE を入力する
(defun main (&rest argv)
  (declare (ignorable argv))
  (princ (if (< (read) (read)) 'YOKO 'TATE))
  (terpri))
(main)