member = (x, y) => nil(y) ? false : equal(x, car(y)) ?
  true :
  member(x, cdr(y))

assert(member('A', list('B', 'C', 'A', 'D')))
assert(!member('F', list('B', 'C', 'A', 'D')))
