main = do
    s <- getLine
    let (sy, s') = splitAt 4 s
        (sm, s'') = splitAt 2 (drop 1 s')
        (sd, s''') = splitAt 2 (drop 1 s'')
        m = read sm
    if m <= 4 then putStrLn "Heisei"
              else putStrLn "TBD"