main = do
    str <- getLine
    let y = read ( take 4 str ) :: Int
    let m = read ( take 2 ( drop 5 str ) ) :: Int
    let d = read ( take 2 ( drop 8 str ) ) :: Int
    let f = (y<=2019)&&(m<=4)&&(d<=30)
    putStr (if f then "Heisei" else "TBD")