
import Data.Array (Array, listArray, accumArray, (!))
import Data.List (sort)

type T a = (a,a)
f [x,y] = (x,y)

main = do
  [n,t] <- map read . words <$> getLine :: IO [Int]
  ys <-  sort . filter ((<=t).snd). map (f.map read.words).lines <$> getContents
  if null ys then putStrLn "TLE"
  else print . fst . head $ ys
