import Data.List.Split

main = do
 [y, m, d] <- map read . splitOn "/" <$> getLine
 putStrLn $ if (y < 2019)
 				then "Heisei"
                else if (y == 2019) && (m < 4)
                		then "Heisei"
                        else if (y == 2019) && (m == 4) && (d <= 30)
                        	then "Heisei"
                            else "TBD"