main :: IO ()
main = do
  [h, w] <- map read . words <$> getLine :: IO [Integer]
  putStrLn $ if h > w then "TATE" else "YOKO"