main = do
    s <- getLine
    let y = read $ take 4 s :: Int
        m = read $ take 2 $ drop 5 s :: Int
        d = read $ drop 8 s :: Int
        ymd = y*10000 + m*100 + d
    putStrLn $ if ymd <= 20190430 then "Heisei" else "TBD"