mode(mother(person,person)).
mode(father(person,person)).
mode(cg(person,chr,allele)).

type(person,[s,m,f,mm,fm,mf,ff]).

type(chr,[1,2]).

type(allele,[p,w]).

universe(['X'],[s,m,f]).

universe(['A','B'],[p,w]).