cutsub x "" = [x]
cutsub x (a : as) = 
  if a == '/' then
    x : (cutsub "" as)
  else
    cutsub (x ++ [a]) as


cut l = cutsub "" l

main = do
    input <- getLine
    let 
      [a, b, c] = map read $ cut input
    putStrLn (if (b <= 4) then "Heisei" else "TBD")
