% -*- Prolog -*-
% $Id: 014,v 1.3 2000/07/22 12:25:07 peteg Exp $

select(X, [X|Xs], Xs).
select(X, [Y|Ys], [Y|Zs]) :-
	select(X, Ys, Zs).

main :- select(X, [a, b, c, d], Xs),
	write(X), write(", "), write(Xs), nl, fail.
