(let loop ((counter 99319075)
           (l '()))
  (if (= counter 100573152)
      (print (length l))
      (loop (+ counter 1) (append l (list counter)))))