semi_final code

% Author:
% Date: 11/29/2019

male(sani).
male(safat).
male(arshad).
male(dada).
male(nana).
female(sagorika).
female(nanu).
female(dadu).
female(khala).
female(kaki).
female(fupi).
male(khalu).
male(kaka).
male(monir).
male(ridoy).

parent(arshad,sani).
parent(arshad,safat).
parent(sagorika,sani).
parent(sagorika,safat).
parent(fupi,monir).
parent(kaka,ridoy).
parent(dada,arshad).
parent(nana,sagorika).
parent(dadu,arshad).
parent(nanu,sagorika).
parent(nana,khala).
parent(nanu,khala).
parent(dada,kaka).
parent(dadu,kaka).
parent(dada,fupi).
parent(dadu,fupi).
father(X,Y) :- male(X),parent(X,Y).
mother(X,Y) :- female(X),parent(X,Y).
son(X,Y) :- male(Y),parent(X,Y).
daughter(X,Y) :- female(Y),parent(X,Y).
ancestor(X,Y) :- parent(X,Y).
ancestor(X,Y) :- parent(X,S),ancestor(S,Y).
grandparentp(X,Y) :-male(S), parent(X,S),parent(S,Y).
grandparentm(X,Y) :- female(S),parent(X,S),parent(S,Y).
sibling(X,Y) :-  father(S,X),father(S,Y), X\=Y.
sister(X,Y) :-female(Y),father(P,X),father(P,Y), X\= Y.
brother(X,Y) :-male(Y),father(P,X),father(P,Y), X\= Y.
auntm(X,Y) :- female(X),sister(X,Mom),mother(Mom,Y).
unclep(X,Y) :- brother(X,Par),parent(Par,Y).
auntp(X,Y) :- female(X),brother(X,Dad),father(Dad,Y).
cousinp(X,Y) :- father(U , X),father(M,Y),brother(U,M);
                mother(U , X),father(M,Y),sister(M,U).