import Control.Applicative

main :: IO ()
main = do
   s <- getLine
   putStrLn $ solve (drop 4 (filter (/= '/') s))
   
solve :: String -> String
solve s = if take 2 s > "04" then "TBD" else "Heisei"