Module _20190422

    Sub Main()

        Dim sRead As String = Console.ReadLine()

        Dim iDay As Integer = sRead.Replace("/", "")

        If iDay <= 20190430 Then

            Console.WriteLine("Heisei")

        Else

            Console.WriteLine("TBD")

        End If

    End Sub

End Module