[p2] helper function

p2/p2.org

@@ -15,3 +15,9 @@ First load the data as a list of cons cells (stsrt . end)
     (insert "))")
     (eval-buffer))
 #+end_src
+
+#+begin_src emacs-lisp :results none
+  (defun create-range (rng)
+    (-iterate #'1+ (car rng) (1+ (- (cdr rng) (car rng)))))
+#+end_src
+