:- auto_table.

:- export
	mother/2.

:- import
	found_it/2 from found_it.

mother(element('Mother',A,B), Mother) :-
	found_it(B, Mother).

mother(element(_,_,L), Mother) :-
	mother(L, Mother).

mother([X|L], Mother) :-
	mother(X, Mother), !;
	mother(L, Mother).