(defun izdvoj(lista start end)
    (izd lista start end 0)
)

(defun brElementi(lista)
    (cond
        ((null lista) 0)
        ((listp (car lista)) (+ (brElementi (car lista)) (brElementi (cdr lista))))
        (T (+ 1 (brElementi (cdr lista))))
        )
 )

(defun izd (lista start end i)
      (cond
        ((null lista) nil)
        ((and (atom (car lista)) (or (= i start) (> i start) (= i end) (< i end)))
            (cons (car lista) (izd (cdr lista) start end (+ i 1))))
        ((listp (car lista))
            (cons (izd (car lista) start end i) (izd (cdr lista) start end (+ i (brElementi (car lista))))))
        (T (izd (cdr lista) start end (+ i 1)))
        )
)