let n, t = Scanf.scanf " %d %d" @@ fun a b -> a, b
let cts = Array.to_list @@ Array.init n @@ fun _ -> Scanf.scanf " %d %d" @@ fun a b -> a, b
let cts = List.filter (fun (_, t0) -> t0 <= t) cts |> List.sort compare
let _ = if cts = [] then print_endline "TLE" else List.hd cts |> fst |> Printf.printf "%d\n"