main :: IO ()
main = do
    s <- getLine :: IO String
    let y = read $ take 4 s :: Int
    let m = read $ take 2 $ drop 5 s :: Int
    let d = read $ take 2 $ drop 8 s :: Int
    putStrLn $ if y <= 2019 && m <= 4 && d <= 30 then "Heisei" else "TBD" 