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

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

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