1::link(X,Y) :- link(Y,X).
red(n1).
green(n2).
green(n3).
blue(n4).
red(n5).
red(n6).
blue(n7).
red(n8).
red(n9).
green(n10).