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 cts1 = cts |> Array.to_list |> List.filter (fun (c, t) -> t <= t0) in
  if cts1 = [] then print_endline "TLE"
  else List.fold_left min cts.(0) cts1 |> fst |> Printf.printf "%d\n"