import Data.Time

solve :: Char -> Char
solve 'A' = 'T'
solve 'T' = 'A'
solve 'C' = 'G'
solve 'G' = 'C'

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"
