испуштиN со подлисти

(defun ispustiN (n lista)
 (pomosna n lista 1)
)

(defun pomosna (n lista brojac)
 (cond
  ((null lista) nil)
  ((listp (car lista))(cons (pomosna n (car lista) brojac)(pomosna n (cdr lista) ( + 1 brojac))))
  ((eq brojac n)(pomosna n (cdr lista) 1))
  (t (cons (car lista)(pomosna n (cdr lista)(+ 1 brojac))))
 )
)


(print(ispustiN 2 '((1 2 3 4)(1 2 2 1)((1 3 5) 3 1))))