(defun cycl(x)
 ((null x) x)
 (append (cdr x) (cons (car 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)