?- mother(albert,X).

No  % [0.2 marks]

?- mother(M,daniel).

M = carol  % [0.2 marks]

?- mother(alice,X).

X = bob ;

X = bright  % [0.2 marks]

?- father(alice,X).

No  % [0.2 marks]

?- father(F,bob).

F = albert  % [0.2 marks]

?- father(daniel,X).

X = steven ;

X = suzy  % [0.2 marks]

?- child(alice,P).

No  % [0.2 marks]

?- child(C,charlie).

C = daniel  % [0.2 marks]

?- son(bianca,P).

No  % [0.2 marks]

?- son(steven,P).

P = brigit ;

P = daniel  % [0.2 marks]

?- son(S,alice).

S = bob  % [0.2 marks]

?- daughter(bob,P).

No  % [0.2 marks]

?- daughter(suzy,P).

P = brigit ;

P = daniel  % [0.2 marks]

?- daughter(D,alice).

D = brigit  % [0.2 marks]

?- sibling(bob,daniel).

No  % [0.2 marks]

?- sibling(bob,brigit).

Yes  % [0.2 marks]

?- sibling(alice,S).

No  % [0.2 marks]

?- sibling(S,charlie).

No  % [0.2 marks]

?- sibling(daniel,daniel).

No  % [0.2 marks]

?- sibling(daniel,S).

No  % [0.2 marks]

?- sibling(steven,S).

S = suzy  % [0.2 marks]

?- sibling(S,suzy).

S = steven  % [0.2 marks]

?- sibling(S1,S2).

S1 = bob,
S2 = brigit ;

S1 = brigit,
S2 = bob ;

S1 = steven,
S2 = suzy ;

S1 = suzy,
S2 = steven  % [0.6 marks]

?- brother(brigit,S).

No  % [0.2 marks]

?- brother(bob,S).

S = brigit  % [0.2 marks]

?- brother(B,brigit).

B = bob  % [0.2 marks]

?- sister(steven,S).

No  % [0.2 marks]

?- sister(suzy,S).

S = steven  % [0.2 marks]

?- sister(S,steven).

S = suzy  % [0.2 marks]

?- uncle(bob,N).

N = steven ;

N = suzy  % [0.2 marks]

?- uncle(U,suzy).

U = bob  % [0.2 marks]

?- aunt(A,jane).

A = brigit  % [0.2 marks]

?- aunt(carol,N).

No  % [0.2 marks]

?- nephew(suzy,P).

No  % [0.2 marks]

?- nephew(steven,P).

P = bob  % [0.2 marks]

?- nephew(N,albert).

No  % [0.2 marks]

?- niece(steven,P).

No  % [0.2 marks]

?- niece(jane,P).

P = brigit  % [0.2 marks]

?- niece(N,bob).

N = suzy  % [0.2 marks]

?- grandparent(bob,C).

No  % [0.2 marks]

?- grandparent(charlie,C).

C = steven ;

C = suzy  % [0.2 marks]

?- grandparent(G,jane).

G = albert ;

G = alice  % [0.2 marks]

?- grandchild(bianca,G).

No  % [0.2 marks]

?- grandchild(steven,G).

G = albert ;

G = alice ;

G = carol ;

G = charlie  % [0.2 marks]

?- grandchild(C,carol).

C = steven ;

C = suzy  % [0.2 marks]

?- cousin(jane,jane).

No  % [0.2 marks]

?- cousin(steven,suzy).

No  % [0.2 marks]

?- cousin(bianca,C).

No  % [0.2 marks]

?- cousin(C,carol).

No  % [0.2. marks]

?- cousin(steven,C).

C = jane  % [0.2 marks]

?- cousin(C,suzy).

C = jane  % [0.2 marks]

?- cousin(jane,C).

C = steven ;

C = suzy  % [0.2 marks]

?- cousin(C,jane).

C = steven ;

C = suzy  % [0.2 marks]