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 _ = match List.filter (fun (_, t0) -> t0 <= t) cts |> List.sort compare with
  | [] -> print_endline "TLE"
  | (c, _) :: _ -> c |> Printf.printf "%d\n"