Ротација на десно

(defun pomosna (lista brojac)
    (cond
        ((eq brojac 0) lista)
        (t (pomosna (cons (car (reverse lista)) (butlast lista))(- brojac 1))))
    )
(defun rotiraj (lista broj)
    (cond
        ((null lista) nil)
        (t (cons(pomosna (car lista) broj)(rotiraj (cdr lista) broj)))
        )
)


;(print (rotiraj '((b 3 a 4)(3 8 a b)(b a 3 0)) 3))
(print (pomosna '(1 2 3 4 5) 1))