padre(marcos, antonio). padre(antonio, sandra). padre(luis, marcos). padre(luis, andrea). padre(luis, nuria). ascendiente(X, Y) :- padre(X, Y). ascendiente(X, Y) :- padre(X, Z), ascendiente(Z, Y).