program main
  implicit none
  character(10) :: s
  integer :: y, m, d
  read *, y, m, d
  if (10000 * y + 100 * m + d <= 20190430) then
    print "(a)", "Heisei"
  else
    print "(a)", "TBD"
  end if
end program main
