program main
	implicit none
    
    integer n, i
    character, allocatable, dimension(:) :: s
    read *, n
    allocate(s(n))
    read (*, *)(s(i), i = 1, n)
    do i = 1, n
    	if (s(i) == "Y") then
        	print *, "Four"
            exit
        else if (i == n) then
        	print *, "Three"
        end if
    end do
end program main