import Data.Bool(bool)
import Data.List

readInt :: String -> Int
readInt = read

main = do
    s <- map readInt.words<$>getContents
    if (solve s == 0) then putStrLn "TLE" else print $ solve s 

solve :: [Int] -> Int
solve (n:t:ci) = bool 0 result $ (length cs)>0
 where
  result = minimum cs
  cs = bounded ci
  bounded [] = []
  bounded [c] = [c]
  bounded (c:i:xs) = bool (c:(bounded xs)) (bounded xs) $ i > t