parent(beth,earl).
parent(james,beth).
parent(tristan,james).
parent(charliesheen,tristan).
ancestor(X,Y):-
	parent(X,Y).
ancestor(X,Y):-
	parent(X,Z),
	ancestor(Z,Y).