Трансформирај непарен//

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

(defun pomosna (lista brojac)
   (cond
       ((null lista) nil)
       ((listp (car lista))(cons (pomosna (car lista)(+ 1 brojac))(pomosna (cdr lista) brojac)))
       ((evenp (+ (car lista) brojac))(pomosna (cdr lista) brojac))
       ((oddp (+ (car lista) brojac))(cons (car lista)( pomosna (cdr lista) brojac)))
       ))


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