?- lapselaps(jaagup, aleksander).
true.

?- lapselaps(jaagup, juhan).
false.

?- lapselaps(_, juhan).
true ;
false.

?- lapselaps(Kes, juhan).
Kes = pille ;
false.

?- lapsed().
isiku toomas vanem on jaagup
isiku jaagup vanem on pille
isiku pille vanem on aleksander
isiku aleksander vanem on juhan
false.

?- lapselapsed().
isiku toomas vanavanem on pille
isiku jaagup vanavanem on aleksander
isiku pille vanavanem on juhan
false.

?- jareltulija(toomas, jaagup).
true ;
false.

?- jareltulija(X, pille).
X = jaagup ;
X = toomas ;
false.

?- jareltulija(X, juhan).
X = aleksander ;
X = toomas ;
X = jaagup ;
X = pille ;
false.

?- jareltulija(pille, X).
X = aleksander ;
X = juhan ;
false.