(defparameter *maxx* -100 )

(defun verif (l level)
    ;(format t "Lista momentan: ~a ~%" l )
    (cond
        ((null (car l)) nil)
        ((and (numberp (car l)) (= (mod level 2) 1) (> (car l) *maxx*))
        (progn
        (setf *maxx* (car l))
        (verif (cdr l) level)
        ))
        ((listp (car l))
        (progn
        (verif (car l) (+ 1 level))
        (verif (cdr l) level)
        ))
        (t(verif (cdr l) level))
     )
)

;(verif '(1 2 (100) 3 (5 (99) 9)) 1)
;(format t "Maximul: ~d ~%" *maxx* )

(defun verif_final (l)
    (defparameter *maxx* -100 )
    (verif l 1)
    (cond
        ((= (mod *maxx* 2) 0) 't)
        (t nil)
     )
)
(format t "~a" (verif_final '(8 (99))))

(defun numarare (l)
    ;(format t "Lista momentan: ~a ~%" l )
    (cond
        ((atom l) 0)
        ((verif_final l) (+ 1 (apply '+ (mapcar 'numarare l))))
        (t (apply '+ (mapcar 'numarare l)))
   )
)


(format t "Nr: ~d ~%" (numarare '(1 2 (100) 3 (8 (99)) 9)))