логичко - 1 (Трансформирај)

(defun transformiraj (lista)
    (pomosna lista 0)
    )

(defun pomosna (lista dlabocina)
    (cond
        ((null lista) nil)
        ((listp (car lista))(cons (pomosna (car lista)(+ 1 dlabocina))(pomosna (cdr lista) dlabocina)))
        ((evenp (+ (car lista) dlabocina))(pomosna (cdr lista) dlabocina))
        ((not (evenp (+ (car lista) dlabocina)))(cons (car lista)(pomosna (cdr lista) dlabocina)))
        )

    )
(print (transformiraj '(1 2(2 (3 8) 3 (2 (4 (7 6 9))))(2 (2 (3) 5)))))