let () = Scanf.scanf "%d %d" @@ fun n t ->
  let cts = Array.to_list @@ Array.init n @@ fun _ ->
    Scanf.scanf "\n%d %d" @@ fun c t -> c, t in
  match
    List.concat @@ List.map (fun (ci, ti) ->
      if t < ti then [] else [ci]) cts
  with
  | [] -> print_endline "TLE"
  | c :: cs -> Printf.printf "%d\n" @@ List.fold_left min c cs
