import Control.Applicative
import Data.List.Split (splitOn)

main :: IO ()
main = solve <$> f >>= putStrLn
  where
    f = map read <$> splitOn "/" <$> getLine

solve :: [Int] -> String
solve [_, m, _]
  | m <= 4 = "Heisei"
  | otherwise = "TBD"
