import Text.Printf
import Control.Monad

main ::IO()
main = do
    [n, t] <- map (read::String->Int) . words <$> getLine
    ct <- replicateM n $ map (read::String->Int) . words <$> getLine
    let ls =  map (\x-> head x ) $ filter (\x->(head $ tail x) <= t) ct
    if length ls == 0 then putStrLn "TLE"
    else print $ minimum ls
