import Data.List
import Data.List.Split
import Data.Bool

readInt :: String -> Int
readInt = read

main = do
 s <- map readInt.wordsBy(=='/')<$>getLine
 putStrLn $ bool "TBD" "Heisei" $ solve s

solve :: [Int] -> Bool
solve [year,month,day]
 | year > 2019 = False
 | year < 2019 = True
 | month > 4 = False
 | otherwise = True