% -*- Prolog -*-
% $Id: 011,v 1.2 2000/07/12 14:20:23 peteg Exp $

member(X, [X|_]).
member(X, [_|Xs]) :- member(X, Xs).

main :-
	member(X, [a,b,c,d,e]), write(X), nl, fail.
