
open Scanf
open Printf

let flip f x y = f y x

let rec range a b = if a >= b then [] else a :: range (a+1) b

let read_int () = scanf " %d" (fun x -> x)
let rec read_ints n = if n = 0 then [] else let i = read_int () in i :: read_ints (n-1)

let rec for_iter a b f = if a >= b then [] else let x = f a in x :: for_iter (a+1) b f
let rec for_iter_ a b f = if a >= b then () else (f a; for_iter_ (a+1) b f)

let list_of_string str = range 0 (String.length str) |> List.map (fun i -> str.[i])
let array_of_string str = Array.init (String.length str) (fun i -> str.[i])

let z c = if c = 'P' then 0 else if c = 'W' then 1 else if c = 'G' then 2 else 3

let () =
  let chk = Array.make 4 0 in
  scanf "%d" (fun n -> Array.init n (fun _ -> scanf " %c" z))
  |> Array.iter (fun x -> chk.(x) <- 1);
  Array.fold_left (+) 0 chk |> (fun x -> if x <= 3 then "Three" else "Four")
  |> print_endline

