(defn TimeLimitExceeded [N T]
  (loop [i 1 n 0 t T]
    (if (> i N) (if (zero? n) "TLE" n)
      (let[c (int(read)) ts (int(read))]
        (if (< ts t) 
          (recur (inc i) c ts)
          (recur (inc i) n t))))))
(println (TimeLimitExceeded (int (read)) (int (read))))