////

(defun listaNivoa (lista nivo) ;;broj na nivo na sekoj element vo lista
    (cond
        ((null lista) nil)
        ((listp (car lista))(append (listaNivoa (car lista)(+ 1 nivo))(listaNivoa (cdr lista) nivo)))
        (t (append (list nivo)(listaNivoa (cdr lista) nivo)))
        )
    )

(defun edinecniNivoa (lista) ;bez duplikati
    (cond
    ((null lista) nil)
    (t(append (list (car lista))(edinecniNivoa (remove (car lista)(cdr lista)))))
    ))

(defun funkcija (lista)
    (edinecniNivoa (listaNivoa lista 0))
    )

(defun otstraniPodlisti (lista prazna i element)
    (cond
        ((null lista) prazna)
        ((equal (nth i (listaNivoa lista 0))(nth (+ 1 i)(listaNivoa lista 0)))
         	(otstraniPodlisti (cdr lista) prazna (+ 1 i) element))
        ()




        )
    )






(defun polufinal (lista)
    (otstraniPodlisti lista nil 0 0)
    )


(defun maxfunkcija (lista maximum)
    (cond
    ((null lista) maximum)
    ((> (car lista) maximum)(maxfunkcija (cdr lista)(car lista)))
    (t (maxfunkcija (cdr lista) maximum))
    ))

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

        )
    )


(print (polufinal '(1 5 (3 (8) 6 (7 (9)))(4 (11 (20 ((2))) 13)) (7 ((1) (5))))))
;(print (brojElementi '(1 1 1 1 1 1)))