import Control.Monad
import Data.List
import qualified Data.ByteString.Char8 as BS

main :: IO ()
main = do
  [n, t] <- map read . words <$> getLine
  ct <- replicateM n ((\[a, b] -> (a, b)) . map (read . BS.unpack) . BS.words <$> BS.getLine)
  let xs = sort $ filter (\(_, b) -> b <= t) ct
  putStrLn $ if length xs <= 0 then "TLE" else show . fst . head $ xs





