let n, t0 = Scanf.scanf " %d %d" @@ fun a b -> a, b
let cts = Array.init n @@ fun _ -> Scanf.scanf " %d %d" @@ fun a b -> a, b
let _ =
  let ans = ref max_int in
  for i = 0 to n - 1 do
    let c, t = cts.(i) in
    if t <= t0 then ans := min !ans c
  done;
  if !ans = max_int then print_endline "TLE" else Printf.printf "%d\n" !ans