N, T, *rest = $stdin.read.split
cts = rest.each_slice(2).to_a
ans = 10000
ts = []
cts.each do |ct|
  ts << ct[1].to_i
  if ct[1].to_i <= T.to_i and ct[0].to_i <= ans
    ans = ct[0].to_i
  end
end

if ts.min > T.to_i
  puts 'TLE'
else
  puts ans
end
