program main
   implicit none
   integer(8)::n,m,l
   character(10)::s
   read(*,"(a10)")s
 !  write(*,*)s
   read(s(6:7),*)n
   if(n>=5)then
      print '(a)',"TBD"
   else
      print '(a)',"Heisei"
   endif
   contains

end program main
