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