import Control.Monad

listCandidates :: Int -> [[Int]] -> [Int]
listCandidates _ []           = []
listCandidates upperTime (x@[cost, time]:xs)
  | time <= upperTime = [cost] ++ listCandidates upperTime xs
  | otherwise         =           listCandidates upperTime xs

main :: IO ()
main = do
  [number, upperTime] <- map read . words <$> getLine
  costs <- replicateM number $ map read . words <$> getLine
  let candidates = listCandidates upperTime costs
  putStrLn $ if null candidates then "TLE" else show $ minimum candidates