import Control.Monad
import Data.List
import Control.Applicative


parse :: String -> String
parse [] = []
parse (c:tl)
  | c == '/'   = parse tl
  | otherwise  = c : parse tl

main :: IO ()
main = do
  s <- getLine
  let n = let x = parse s in if x <= "20190430" then "Heisei" else "TBD"
  print n
