(defun delete_elem(x y)
  ;;check if list is empty -- stop case
  (cond
   ((null x)    nil)
   ((equal y (car x)) (delete_elem (cdr x) y)
    (t (cons (car x) (delete_elem (cdr x) y))
	   ))))