:- auto_table.

:- export
	found_it/2.

:-import append/3 from lists.

found_it(element(_,_,L), It) :-
	found_it(L, It), !.

found_it([], []) :- !.

found_it([X|L], S3) :-
%	write(X), nl,
	found_it(X, S1), !,
	found_it(L, S2), !,
	append(S1, S2, S3), !.

found_it(It, [It]) :- !.