#!/usr/bin/env perl

use strict;
use utf8;
use warnings;

my($t,$y)=split/ /,<>;print$t<$y?"YOKO\n":"TATE\n";