madre(josefina, mario).
madre(josefina, ligia).
madre(silvia, marina).
madre(silvia,jaime).
madre(silvia, carlos).
madre(ligia, regina).
madre(ligia, jacinta).
%padre:
padre(manuel, mario).
padre(manuel, ligia).
padre(mario , ligia).
padre(mario, jaime).
padre(mario, carlos).
padre(julio, regina).
padre(julio, jacinta).
% Abuelo:
abuelo(X, Y):-
padre(X,W),
padre(W,Y).
abuelo(X, Y):-
padre(X,W),
madre(W,Y).
abuela(X, Y):-
madre(X,W),
padre(W,Y).
abuela(X, Y):-
madre(X,W),
madre(W,Y).
%abuelos
abuelos(X, Y):-
abuelo(X,Y).
abuelos(X, Y):-
abuela(X,Y).
% abuelos(X, Y):-
%abuelo(X, Y) ; abuela(X,Y).