let solve h w = if h > w then "TATE" else "YOKO" let () = let h, w = read_line () |> Str.split (Str.regexp_string " ") |> List.map int_of_string |> fun lst -> (List.nth lst 0, List.nth lst 1) in solve h w |> print_endline