import Data.List.Split
main = do
    a <-  getLine
    -- let year = take 4
    -- let day =  take 2 $  drop
    let temp = map (\x -> read x) $ splitOn "/" a :: [Int]
    --let temp = map (\x -> read x) $ split '/' a :: [Int]
    let isHeisei = ((temp !! 0) >= 2019) && ((temp !! 1) <= 4) && ((temp !! 2) <= 30)
    putStrLn $ if isHeisei then "Heisei" else "TBD"

