:- auto_table.

:- export
	father/2.

:- import
	found_it/2 from found_it.

father(element('Father',A,B), Father) :-
	found_it(B, Father).

father(element(_,_,L), Father) :-
	father(L, Father).

father([X|L], Father) :-
	father(X, Father), !;
	father(L, Father).