program main
  implicit none
  integer :: y, m, d
  character(1) :: tmp1, tmp2

  read '(i4, a1, i2, a1, i2)', y, tmp1, m, tmp2, d
  if (m .le. 4) then
    print '(6a)', 'Heisei'
  else
    print '(3a)', 'TBD'
  end if
end