/* Arbre généalogique, premiere maniere */

 ecrire(X, N) :- tab(N), write(X), nl. /* N doit etre entier */

 arbgen1(X) :- ecrire(X, 0), genarb1(X, 10).

 genarb1(X, N) :- genp1(X, N).  /* p comme pere */
 genarb1(X, N) :- genm1(X, N).  /* m comme mere */

 genp1(X, N) :- pere(Y, X), ecrire(Y, N), sgenarb1(Y, N).

 genm1(X, N) :- mere(Y, X), ecrire(Y, N), sgenarb1(Y, N).

 sgenarb1(X, N) :- M is N + 10 ,  genarb1(X, M).

