import Data.List.Split

main :: IO ()
main = do
  s <- getLine
  putStrLn $ (judge . format) s
  
  where
    format :: String -> [Int]
    format s = map read $ splitOneOf "/" s

    judge :: [Int] -> String
    judge [y, m, d]
      | y < 2019 = "Heisei"
      | m <= 4 = "Heisei"
      | otherwise = "TBD"
