(defun f(s) 
(if (null s) nil 
(let(r(rest s))) 
(t(cons(list(first s)) (f(r))))))