import Data.Text
main = do
  a <- getLine
  let date = Prelude.map unpack (splitOn (pack "/") (pack a))
  let y = read (date !! 0)
  let m = read (date !! 1)
  let d = read (date !! 2)
  let ans = if (y <= 2019) && (m <= 4) && (d <= 30) then "Heisei" else "TBD"
  putStrLn ans