(defun zdd (x) (if (atom x) x (let ((za (zdd (car x))) (zd (zdd (cdr x)))) (if (equal zd '(0)) za (cons za zd))))) ; or57_11_597