import Control.Monad

solve t ct
  | null candy = "TLE"
  | otherwise = show $ minimum candy
  where candy = map head $ filter ((<=t) . last) ct

main = do
  [n, t] <- map read . words <$> getLine
  ct <- replicateM n $ map read . words <$> getLine
  putStrLn $ solve t ct