% -*- Prolog -*-
% $Id: 013,v 1.2 2000/07/12 14:20:23 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.
