Напишите правила, определяющие следующие отношения - Prolog

parent(виктор, саша).
parent(виктор, юля).
parent(катя, юля).
parent(катя, саша).
parent(юля, маша).
parent(рома, даша).
parent(рома, маша).
parent(юля, даша).
parent(юля, петя).
perent(дима, виктор).
perent(алёна, виктор).
male(виктор).
male(рома).
male(петя).
male(саша).
male(дима).
female(алёна).
female(юля).
female(даша).
female(маша).
female(катя).
mother(X,Y):-parent(X,Y), female(X).
father(X,Y):-parent(X,Y), male(X).
friend(X, Y):-parent(X, Y).
friend(X, Y):-parent(Y, X).
friend(X, Y):-parent(Z, X), parent(Z, Y).
normal_child(Father, Mother, Child):-father(Father, Child), mother(Mother, Child).
friend2(X, Y):-parent(X, Y); parent(Y, X); parent(Z, X), parent(Z, Y).
doughter(X,Y):-parent(Y,X), female(X).
son(X,Y):-parent(Y,X), male(X).
wife(Mother,Father):-normal_child(Father, Mother, Child), female(Mother).
husband(Father,Mother):-normal_child(Father, Mother, Child), male(Father).
 
grandmother(Baba,Ditya):-parent(Baba,Son), parent(Son,Ditya), female(Baba).
 
grandson(Vnuk, Ded):-parent(Ded, Otec), parent(Otec, Vnuk), male(Vnuk).