Помогите срочно решить задачу на Prolog (заплачу

Помогите срочно решить задачу на турбо прологе (если нужно заплачу через webmoney)

Описать родственные связи семьи. В основу построения программы взять предикат родители (мать, отец, ребенок). По ширине правила должны охватывать связи двоюродные братья (сестры), по глубине дед (бабушка) внуки.

Для моей задачи нужно использовать следующих родственников

Дима (брат)
Лариса (мама)
Сергей (отец)
Леонид (дядя по маме-мамин брат)
Никита (двоюродный брат-сын леонида)
Саша1 (бабушка по матери)
Саша2 (бабушка по отцу)
Валентин1 (дедушка по отцу)
Валентин2 (дедушка по матери)
Саша3 (двоюродная бабушка-сестра Саши1)



Листинг программы из методички для определения дедушки

Predicates
gr_father(symbol, symbol).
man(symbol).
woman(symbol).
parents(symbol, symbol, symbol).

clauses
parents(petr, elena,pavel).
parents(anna, pavel, igor).
man(petr).
man(pavel).
man(igor).
woman(elena).
woman(anna).
gr_father(X,Y):- man(X), parents(F,_,Y), parents(_,X,F).
gr_father(X,Y):- man(X), parents(M,_,Y), parents(_,X,M).