#include "reachin1000". source(3). reach(Y) :- edge(X,Y), reach(X). reach(X) :- source(X).