import Control.Monad
import Control.Applicative
import Data.List

readInt :: IO Int
readInt = readLn

main :: IO ()
main = do
  [n, t'] <- (map read . words) <$> getLine
  lines <- replicateM n getLine
  let cts = map (map read . words) lines
  let cands = [c | [c, t] <- cts, t <= t']
  putStrLn $ if cands == [] then "TLE" else show $ minimum cands
