gentil(vincent).
geek(vincent).
pinguin(X) :-
	gentil(X),
	geek(X).

avion(new_york,los_angeles).
avion(paris,new_york).
avion(marseille,paris).
avion(grenoble,st_brieuc).
avion(thonon,grenoble).

avion(X,Y) :-
	avion(Y,X),!.

voyage(X,Y) :- avion(X,Y).
voyage(X,Y) :-
	avion(X,Changmt),
	voyage(Changmt,Y).