% -*- Prolog -*-
%
% Do-nothing cut.
%
% $Id: 033,v 1.3 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.
