(bind-func member:[List{!a}*,!a,List{!a}*]*
(lambda (element lst)
(let ((f (lambda (l)
(if (null? l)
null
(if (equal element (car l))
l
(f (cdr l)))))))
(f lst))))