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