male(john).
male(jimmy).
female(mary).
parent(john, jimmy).
parent(mary, jimmy).
father(X, Y) :- parent(X, Y), male(X).
mother(X, Y) :- parent(X, Y), female(X).

foo(0).
foo(X) :- X > 0, Y is X - 1, foo(Y).