open System

let N,T=stdin.ReadLine().Split()|>fun c-> int c.[0],int c.[1]
[<EntryPoint>]
let main argv =
    [|for i in [0..N-1] do yield (stdin.ReadLine().Split()|>Array.map int|>fun c -> (if c.[1]<=T then c.[0] else 100000))|]
    |>Array.min
    |>fun c -> if c=100000 then "TLE" else (c|>string)
    |>stdout.WriteLine
    0
