Plaster

common-lisp
(defun compress (L) (if (null L) () (if (eq (car L) (car (cdr L))) (compress (append (list (car L)) (cdr (cdr L)))) (append (list (car L)) (compress (cdr L))))))