program main
  implicit none
  integer :: n, i
  character(1) :: s(100)
  logical :: yellow
  read(*, *) n
  read(*, *) s(1:n)
  yellow = .false.
  do i = 1, n
    if (s(i) == "Y") then
      yellow = .true.
      exit
    end if
  end do
  if (yellow) then
    write(*, "(a)") "Four"
  else
    write(*, "(a)") "Three"
  end if
end program main
