import Data.Maybe(fromMaybe)

main = do
    [n,t] <- (fmap read) <$> words <$> getLine
    list <- buildLs n []
    let res = min' $ map fst $ filter ((t >=) . snd) list
    putStrLn $ fromMaybe "TLE" $ show <$> res

buildLs :: Int -> [(Int,Int)] -> IO [(Int,Int)]
buildLs 0 ac = return ac
buildLs n ac = do
    [c,t] <- (fmap read) <$> words <$> getLine
    buildLs (n-1) $ (c,t):ac

min' [] = Nothing
min' xs = Just $ minimum xs