let () =
  Scanf.scanf "%d\n" @@ fun n ->
  let slst = List.sort_uniq compare
    (Array.to_list (Array.init n @@ fun _ -> Scanf.scanf "%s " @@ fun s -> s)) in
  Printf.printf "%s\n" (if List.length slst = 3 then "Three" else "Four")