program main
  implicit none
  
  integer :: n,i
  character*1 :: s(100)
  
  read(*,*)n
  read(*,*)(s(i),i=1, n)
  do i = 1, n
    if (s(i) == 'Y') then
      write(*,*)'Four'
      stop
    end if
  end do
  
  write(*,*)'Three'
end program main