      program test
      character(10) :: s
      integer :: m
      
      
      read'(10a)',s
      
      read(s(6:7),*) m
      
      if(m<=4)then
        print*,'Heisei'
      else
        print*,'TBD'
      end if
      end program
      