(defun compress (alist)
  (if (null alist)
    nil
    (append
      (if (equalp
            (car alist)
            (car (cdr alist)))
        nil
        (list (car alist)))
      (compress (cdr alist)))))