import Data.List.Split

solver::String->String
solver str = let (_:m:d:[]) =(map read) ((splitOn "/") str) in
             if m>=5 then "TBD" else "Heisei"

main::IO()
main=(putStr.(\s->s++"\n").solver)=<<getLine
