person(alfred,male).
person(bob,male).
person(beatrice,female).
person(david,male).
person(elisa,female).
person(eric,male).
person(fred,male).
person(james,male).
person(terry,male).
person(terri,female).
person(wendy,female).
person(art,male).
person(alice,female).
person(cornelia,female).
person(melvin,male).
person(maria,female).
person(carl,male).
person(gail,female).
person(harry,male).
person(helen,female).
person(janet,female).
person(kari,female).
person(karl,male).
person(nero,male).
person(nonnie,female).
person(neil,male).
person(jane,female).
person(jack,male).
person(calvin,male).
person(regina,female).
person(leon,male).
person(oma,female).
person(owen,male).
person(rachel,female).
person(susan,female).
person(steve,male).
parent(ann,david).
parent(beatrice,eric).
parent(beatrice,gail).
parent(callie,karl).
parent(kari,nero).
parent(lorrie,oma).
parent(lorrie,paul).
parent(lorrie,rachel).
parent(elisa,umo).
parent(elisa,wendy).
parent(fannie,cornelia).
parent(fannie,melvin).
parent(fannie,nancy).
parent(helen,prissie).
parent(helen,jane).
parent(janet,jack).
parent(janet,calvin).
parent(janet,christy).
parent(nonnie,angela).
parent(nonnie,ray).
parent(alfred,elisa).
parent(bob,eric).
parent(bob,fannie).
parent(bob,gail).
parent(bob,harry).
parent(carl,karl).
parent(carl,lorrie).
parent(carl,mark).
parent(karl,janet).
parent(karl,nero).
parent(leon,oma).
parent(leon,paul).
parent(leon,rachel).
parent(david,jonas).
parent(david,terry).
parent(eric,umo).
parent(eric,wendy).
parent(eric,art).
parent(fred,cornelia).
parent(fred,melvin).
parent(fred,nancy).
parent(harry,prissie).
parent(harry,jane).
parent(james,jack).
parent(james,calvin).
parent(james,christy).
parent(nero,angela).
parent(nero,ray).
parent(harry,frederick).
married(ann,alfred).
married(beatrice,bob).
married(elisa,eric).
married(fannie,fred).
married(gail,george).
married(janet,james).
married(lorrie,leon).
married(oma,owen).
married(paula,paul).
married(susan,steve).
married(wendy,walt).
married(maria,melvin).
married(prissie,peter).
married(jane,jack).
married(regina,ray).
ojciec(X,Y)<-person(X,male)&parent(X,Y).
matka(X,Y)<-person(X,female)&parent(X,Y).
maz(X,Y)<-person(X,male)&person(Y,female)&married(Y,X).
maz(X,Y)<-person(X,male)&person(Y,female)&married(X,Y).
zona(X,Y)<-person(X,female)&person(Y,male)&married(X,Y).
zona(X,Y)<-person(X,female)&person(Y,male)&married(Y,X).
syn(X,Y)<-parent(Y,X)&person(X,male).
corka(X,Y)<-parent(Y,X)&person(X,female).
brat(X,Y)<-person(X,male)&parent(Z,X)&parent(Z,Y)&X\=Y.
siostra(X,Y)<-person(X,female)&parent(Z,X)&parent(Z,Y)&X\=Y.