;;
;; Lisp example, CS372
;;
(defun mmbr (itm lst)
  (cond
   ((null lst) nil)
   ((eq itm (car lst)) lst)
   (t (mmbr itm (cdr lst)))))