program hina_arare
  implicit none
  integer :: n, i
  character(1) :: s(100)
  read(*,*) n
  read(*,*) s(1:n)
  do i = 1, n
    if (s(i) /= "Y") cycle
    write(*,'(a)') "Four"
    stop
  end do
  write(*,'(a)') "Three"
end program hina_arare