follows(bm,[ad]).
follows(cp,[ad]).
follows(ad,[cp]).
follows(dd,[cp]).
follows(ad,[ec]).
follows(bm,[ec]).
follows(cp,[ec]).
follows(cp,[fa]).
follows(dd,[fa]).
follows(bm,[cp,dd]).
follows(ec,[cp,dd]).
follows(fa,[cp,dd]).
follows(dd,[ad,bm]).
 
brings(X,S):-brings(X,S,[],[]).
 
brings(_X,[],_S,_N). 
brings(X,[X|L],S,N):-brings(X,L,[X|S],N). 
brings(X,[Y|L],S,N):-follows(Y,[X]),brings(X,L,[Y|S],N). 
brings(X,[Y|L],S,N):- \+member(Y,N),\+follows(Y,[X]), 
                   follows(Y,[A,B]),
                   try_bring(X,A,L,S,[Y|N]),
                   try_bring(X,B,L,S,[Y|N]),brings(X,L,[Y|S],N).
brings(X,[Y|L],S,N):- \+member(Y,N),\+follows(Y,[X]),\+follows(Y,[_A,_B]), 
                   follows(Y,[C]),
                   try_bring(X,C,L,S,[Y|N]),brings(X,L,[Y|S],N).
 
try_bring(_X,A,_L,S,_N):-member(A,S).
try_bring(X,A,L,S,N):- \+member(A,S),sort([A|L],Y),brings(X,Y,S,N).
 
partymaker(X):-Guests=[ad,bm,cp,dd,ec,fa],member(X,Guests),brings(X,Guests).

Zm9sbG93cyhibSxbYWRdKS4KZm9sbG93cyhjcCxbYWRdKS4KZm9sbG93cyhhZCxbY3BdKS4KZm9sbG93cyhkZCxbY3BdKS4KZm9sbG93cyhhZCxbZWNdKS4KZm9sbG93cyhibSxbZWNdKS4KZm9sbG93cyhjcCxbZWNdKS4KZm9sbG93cyhjcCxbZmFdKS4KZm9sbG93cyhkZCxbZmFdKS4KZm9sbG93cyhibSxbY3AsZGRdKS4KZm9sbG93cyhlYyxbY3AsZGRdKS4KZm9sbG93cyhmYSxbY3AsZGRdKS4KZm9sbG93cyhkZCxbYWQsYm1dKS4KCmJyaW5ncyhYLFMpOi1icmluZ3MoWCxTLFtdLFtdKS4KCmJyaW5ncyhfWCxbXSxfUyxfTikuIApicmluZ3MoWCxbWHxMXSxTLE4pOi1icmluZ3MoWCxMLFtYfFNdLE4pLiAKYnJpbmdzKFgsW1l8TF0sUyxOKTotZm9sbG93cyhZLFtYXSksYnJpbmdzKFgsTCxbWXxTXSxOKS4gCmJyaW5ncyhYLFtZfExdLFMsTik6LSBcK21lbWJlcihZLE4pLFwrZm9sbG93cyhZLFtYXSksIAogICAgICAgICAgICAgICAgICAgZm9sbG93cyhZLFtBLEJdKSwKICAgICAgICAgICAgICAgICAgIHRyeV9icmluZyhYLEEsTCxTLFtZfE5dKSwKICAgICAgICAgICAgICAgICAgIHRyeV9icmluZyhYLEIsTCxTLFtZfE5dKSxicmluZ3MoWCxMLFtZfFNdLE4pLgpicmluZ3MoWCxbWXxMXSxTLE4pOi0gXCttZW1iZXIoWSxOKSxcK2ZvbGxvd3MoWSxbWF0pLFwrZm9sbG93cyhZLFtfQSxfQl0pLCAKICAgICAgICAgICAgICAgICAgIGZvbGxvd3MoWSxbQ10pLAogICAgICAgICAgICAgICAgICAgdHJ5X2JyaW5nKFgsQyxMLFMsW1l8Tl0pLGJyaW5ncyhYLEwsW1l8U10sTikuCgp0cnlfYnJpbmcoX1gsQSxfTCxTLF9OKTotbWVtYmVyKEEsUykuCnRyeV9icmluZyhYLEEsTCxTLE4pOi0gXCttZW1iZXIoQSxTKSxzb3J0KFtBfExdLFkpLGJyaW5ncyhYLFksUyxOKS4KCnBhcnR5bWFrZXIoWCk6LUd1ZXN0cz1bYWQsYm0sY3AsZGQsZWMsZmFdLG1lbWJlcihYLEd1ZXN0cyksYnJpbmdzKFgsR3Vlc3RzKS4=

d3JpdGUoJ2ludml0ZWQnKSxubCwKICBwYXJ0eW1ha2VyKFgpLHdyaXRlKFgpLG5sLAogIGZhaWwu

write('invited'),nl,
  partymaker(X),write(X),nl,
  fail.