ispushtiN podlisti

(defun ispushtiN (n lista)
    (pomosna n lista 1)
    )

;(setq lista1 nil)

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

    ))


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