Module Module1

	Sub Main()
		Dim tx As IO.TextReader = Console.In

		Dim lines As String() = tx.ReadLine().Split(" ")
		Dim n As Integer = Integer.Parse(lines(0))
		Dim t As Integer = Integer.Parse(lines(1))

		Dim list As New List(Of KeyValuePair(Of Integer, Integer))

		For i = 0 To n - 1
			lines = tx.ReadLine().Split(" ")
			Dim c As Integer = Integer.Parse(lines(0))
			Dim tt As Integer = Integer.Parse(lines(1))

			If tt <= t Then
				list.Add(New KeyValuePair(Of Integer, Integer)(c, tt))
			End If

		Next
		If list.Count > 0 Then
			list.Sort(Function(kv1, kv2) kv1.Key.CompareTo(kv2.Key))
			Console.WriteLine(list(0).Key)
		Else
			Console.WriteLine("TLE")
		End If

	End Sub

End Module
