Imports System

Module Program
    Sub Main(args As String())
        Dim s As String = Console.ReadLine()
        Dim a As DateTime = DateTime.Parse(s)
        Dim b As DateTime = DateTime.Parse("2019/04/30")
        If a > b Then
            Console.WriteLine("TBD")
        Else
            Console.WriteLine("Heisei")
        End If

    End Sub
End Module

