:- include(mondial).
% if special characters in filename: include('bla-blubb.P')
europeanCountry(C) :- encompasses(C,'Europe',_).
asianCountry(C) :- encompasses(C,'Asia',_).
result(O) :- europeanCountry(C), country(_,C,Cap,CapP,_,_), isMember(C,O,_),
             organization(O,_,Cap,C,CapP,_).
result(O) :- asianCountry(C), country(_,C,Cap,CapP,_,_), isMember(C,O,_),
             organization(O,_,Cap,C,CapP,_).