laps(toomas, jaagup).
laps(jaagup, pille).
laps(pille, aleksander).
laps(aleksander, juhan).

lapselaps(Kes, Kelle):-
  laps(Kes, X),laps(X, Kelle).

lapsed() :-
  laps(X, Y), write('isiku '), write(X), write(' vanem on '), write(Y), nl, false.

lapselapsed() :-
  lapselaps(X, Y), write('isiku '), write(X), write(' vanavanem on '), writeln(Y), false.

jareltulija(Kes, Kelle):-
  laps(Kes, Kelle).

jareltulija(Kes, Kelle):-
  laps(Kes, X), jareltulija(X, Kelle).