(defun izbrisiPrv(lista)
    (cdr lista)
)


(defun podlista(l)
    (cond
        ((null l) nil)
        ((listp (car l)) (cons (izbrisiPrv(car l)) (cdr l)))
        ((atom (car l)) (podlista(cdr l)))
		(t (cons (podlista(car l)) (podlista(cdr l))))
    )
)


(print (podlista '(1 (2 (3 4) 5) 6)))