ВИ Транформира (флипни места)

(defun izvadizagradi (lista noval)
  (if (null lista)
    noval
    (if (atom (car lista))
    (izvadizagradi (cdr lista) (append noval (list (car lista))))
    (izvadizagradi (cdr lista) (append noval (izvadizagradi (car lista) '())))
    )
    )
)

(defun promena (lista noval)
  (if (< (length lista) 2)
    (append noval lista)
    (promena (cddr lista) (append (append noval (list (cadr lista))) (list (car lista))))
    )
)

(defun zagrada (lista noval onaa)
  (if (null lista)
    noval
    (if (atom (car lista))
      (zagrada (cdr lista) (append noval (list(car onaa))) (cdr onaa))
      (zagrada (cdr lista) (append noval (list(zagrada (car lista) '() onaa)) ) (izbrisi onaa (izbroi (car lista) 0)))
      )
    )
  )

(defun izbrisi (lista n)
  (if (eq n 0)
    lista
    (izbrisi (cdr lista) (- n 1))
    )
  )

(defun izbroi (lista n)
  (if (null lista)
    n
    (if (atom (car lista))
      (izbroi (cdr lista) (+ n 1))
      (izbroi (cdr lista) (+ n (izbroi (car lista) 0)))
      )
    )
  )

(defun transformiraj (lista)
  (zagrada lista '() (promena (izvadizagradi lista '()) '()))
  )

(transformiraj '(2 (5 (4 7 (10 (9) 5 9) 4) (8 (11)) 18) 6))