relatedSystems(['whatToDo','resourceManager','freeFLUXPlayer']).

related(X,Y) :-
	relatedSystems(List),
	member(X,List),
	member(Y,List),
	X \== Y.

system(X) :-
	related(X,Y).
system(Y) :-
	related(X,Y).