import Control.Monad
main = do
  [n,t] <- map read . words <$> getLine
  ct <- replicateM n $ map read . words <$> getLine
  let m = map head $ filter (\x -> last x <= t) ct
  putStrLn $ if null m then "TLE" else show (minimum m) 