Clojure Определить функционал который после каждого элемента списка вставляет его порядковый номер

(defun num (lst &optional(n 1))
    (cond 
        ((null lst) nil)
        (T (append (list (car lst) n) (num (cdr lst) (+ n 1))))
    )
)

(apply concat (map (fn [args] (...)))

(mapcat (partial list) ...) или 
(mapcat #(list % %2) ...)

(mapcan #'list '(1 2 3) '(a b c)) ==> (1 a 2 b 3 c)
(mapcat list '(1 2 3) '(a b c)) ==> (1 a 2 b 3 c)

INSOMNIA> (set-dispatch-macro-character 
           #\# #\r
           #'(lambda (s ch1 ch2)
               (declare (ignore ch1 ch2))
               `(let ((n ,(read s t () t)))
                  (loop for a from 0 to n collect a))))
T
INSOMNIA> #r10
(0 1 2 3 4 5 6 7 8 9 10)
INSOMNIA> #r15
(0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15)
INSOMNIA> (read-from-string "#r15")
(LET ((N 15))
  (LOOP FOR A FROM 0 TO N
        COLLECT A))

INSOMNIA> (defmacro e-read-from-string (e)
            (read-from-string e))
E-READ-FROM-STRING
INSOMNIA> (e-read-from-string "#r10")
(0 1 2 3 4 5 6 7 8 9 10)

INSOMNIA> (set-dispatch-macro-character
           #\# #\#
           #'(lambda (x ch1 ch2)
               (declare (ignore ch1 ch2))
               (let ((s (read x t () t))) 
                 (typecase s
                   (symbol (string s))
                   (string s)
                   (number (map 'vector #'identity (loop for a from 0 to s collect a)))))))
T
INSOMNIA> ##0
#(0)
INSOMNIA> ##fun
"FUN"
INSOMNIA> ##"fun"
"fun"
INSOMNIA> (read-from-string "##3")
#(0 1 2 3)
3
INSOMNIA> (equalp ##3 (read-from-string "##3"))
T

INSOMNIA> (set-dispatch-macro-character 
           #\# #\[
           #'(lambda (x c1 c2)
               (declare (ignore c1 c2))
               (let ((p (read-delimited-list #\] x t)))
                 (cons 'list 
                       (loop 
                          for a from (first p) to (second p)
                          collect a)))))
T
INSOMNIA> #[10 20]
(10 11 12 13 14 15 16 17 18 19 20)