(progn (cl-loop for i in (number-sequence 0 130000) collect (cons (number-to-string i) i)) :done)
(progn (cl-loop for i in (number-sequence 0 130000) collect (cons (number-to-string i) i) into pairs) :done)