
import qualified Data.ByteString.Char8 as C
import Data.List



main :: IO ()
main = do
    [y,m,_] <- unfoldr (C.readInt . C.dropWhile (=='/')) <$> C.getLine
    let r = if y < 2019 then "Heisei"
            else if m <= 4 then "Heisei" else "TBD"
    putStrLn r



