let rec colors = function
    | [] -> "Three"
    | e :: es ->
        if e = "Y" then "Four"
        else colors es

let () =
    let _ = read_int () in
    let l =
        read_line () |> Str.split (Str.regexp " ")
    in
    print_endline (colors l)
