Помощь в прологе

/*  файл family.pro  */
 
predicates
nondeterm male(symbol)  /*мужчина(кто)*/
nondeterm female(symbol)  /*  женщина  */
nondeterm parent(symbol,symbol,symbol) /*родители(отец,мать,чьи)*/
nondeterm age(symbol,integer)/* возраст(чей,какой) */
 
clauses
 
male(“Иван“).
male(“Петр“).
male(“Николай“).
male(“Андрей“).
male(“Федор“).
 
female(“Анна“).
female(“Зоя“).
female(“Наташа“).
female(“Вера“).
female(“Мария“).
 
parent(“Иван“,”Зоя“,”Петр“).
parent(“Иван“,”Зоя“,”Наташа“).
parent(“Федор“,”Анна“,”Зоя“).
parent(“Федор“,”Анна“,”Андрей“).
parent(“Николай“,”Мария“,”Иван“).
parent(“Николай“,”Мария“,”Вера“).
 
age(“Анна“,54).
age(“Зоя“,33).
age(“Наташа“,13).
age(“Вера“,42).
age(“Мария“,62).
age(“Николай“,65).
age(“Иван“,40).
age(“Андрей“,30).
age(“Петр“,7).
age(“Федор“,58).

Grandfather(X,A):=parent(X,_,Y),parent(Y,_,Z),age(Z,A)