import Data.Time

main :: IO ()
main = do
  s <- getLine
  date <- parseTimeM True defaultTimeLocale "%Y/%m/%d" s :: IO Day
  let threshold = fromGregorian 2019 4 30
  putStrLn $ if diffDays date threshold <= 0 then "Heisei" else "TBD"
