Дополнить программу в Turbo Prolog

[Paco de lucia]

Здравствуйте ... помогите пожалуйста дополнить программу на языке Turbo Prolog чтобы в секции Goal было 16 условий .... то есть надо добавить генеалогические связи... Заранее спасибо!
Вот рабочая программа которую надо дополнить

Predicates 
	parent(symbol,symbol)	
	display_grand_parent
	display_male(symbol)
	father(symbol,symbol)
	male(symbol)
	grand_parent(symbol,symbol)
Clauses
	parent(ivan,maria).
	parent(anna,mihai).
	parent(maria,tolea).
	male(kostea).
	father(tolea,zina).
	grand_parent(valera,senia).
	display_grand_parent:-
		grand_parent(X,Y),
		parent(X,Z),
		parent(Z,Y).

	display_male(X):-
		father(X,Y),
		parent(X,Y),
		male(X).
Goal
	parent(X, Y), write(X, " esti otets u ", Y, "."), nl, fail.
	%display_grand_parent,
	%display_male(X).