Издвој

(defun izdvoj (lista a b)
    (pom lista a b 1)
    )

(defun pom (lista a b brojac)
    (cond
        ((null lista) nil)
        ((listp (car lista))(remove 'NIL(append (list (pom (car lista) a b brojac))(pom (cdr lista) a b (+ (brojElementi(car lista)) brojac)))))
        ((and(>= brojac a)(<= brojac b))(append (list(car lista))(pom (cdr lista) a b (+ 1 brojac))))
        ((or(> a brojac)(< b brojac))(pom (cdr lista) a b (+ 1 brojac)))
    ))

(defun brojElementi (lista)
    (cond
    ((null lista) 0)
    ((listp (car lista))(+ (brojElementi (car lista))(brojElementi (cdr lista))))
    (t (+ (brojElementi(cdr lista))1))
    ))

(print (izdvoj '(1 2 (3 (4) 5 (6 (7)))(8 (9 (10 ((11))) 12)) (13 ((14) (15)))) 7 13))