let id x = x

type v = T | F

let rec slv = function
	| 0 -> T
	| n -> if (Scanf.scanf "%c" id) = 'Y' then F else slv (n-1)

let () =
	let n = Scanf.scanf "%d\n" id in
	match slv n with
	| F -> print_string "Four"
	| T -> print_string "Three"
