male(george).
male(spencer).
male(philip).
male(charles).
male(mark).
male(andrew).
male(edward).
male(william).
male(harry).
male(peter).
male(james).
male(mike).
male(george2).
male(louis).
male(archie).

female(mum).
female(kydd).
female(elizabeth).
female(margaret).
female(diana).
female(anne).
female(sarah).
female(sophie).
female(zara).
female(beatrice).
female(eugenie).
female(louise).
female(catherine).
female(autumn).
female(meghan).
female(charlotte).
female(savannah).
female(isla).
female(mia_grace).
female(lena_elizabeth).

parent(george, elizabeth).
parent(george, margaret).
parent(mum, elizabeth).
parent(mum, margaret).

parent(spencer, diana).
parent(kydd, diana).

parent(elizabeth, charles).
parent(elizabeth, anne).
parent(elizabeth, andrew).
parent(elizabeth, edward).
parent(philip, charles).
parent(philip, anne).
parent(philip, andrew).
parent(philip, edward).

parent(diana, william).
parent(diana, harry).
parent(charles, william).
parent(charles, harry).

parent(anne, peter).
parent(anne, zara).
parent(mark, peter).
parent(mark, zara).

parent(andrew, beatrice).
parent(andrew, eugenie).
parent(sarah, beatrice).
parent(sarah, eugenie).

parent(edward, louise).
parent(edward, james).
parent(sophie, louise).
parent(sophie, james).

parent(william, george2).
parent(william, charlotte).
parent(william, louis).
parent(catherine, george2).
parent(catherine, charlotte).
parent(catherine, louis).

parent(harry, archie).
parent(meghan, archie).

parent(peter, savannah).
parent(peter, isla).
parent(autumn, savannah).
parent(autumn, isla).

parent(mike, mia_grace).
parent(mike, lena_elizabeth).
parent(zara, mia_grace).
parent(zara, lena_elizabeth).

child(C, P) :- parent(P, C).
