(defun k(x) 
(if(null x) nil 
((null(rest x)) nil 
(let((c(first x))(r (rest x)))) 
(t( append1 (r c)))))