import Control.Monad

main = do
    [n, t] <- map (read::String->Int) . words <$> getLine
    ct <- replicateM n $ map read . words <$> getLine
    putStrLn $ f t ct

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