(defun cycl(x)
 ((null x) x)
 (append (last x) (cut x))
)

(defun cut(x)
 ((null x) x)
 ((null (cdr x)) nil)
 (cons (car x) (cut (cdr x)))
)

(defun ncycl (n x)
 ((= n 0) x)
 ((> n 0) (ncycl (- n 1) (cycl x)))
)

(ncycl 3 '(a b c d e f g h))
(system)