Найти строки с общими словами - Prolog

title([а, война, и, мир]).
title([а, мёртвые, души]).
title([а, зори, здесь, тихие]).
title([гражданская, война]).
 
similar_title :-
    setof( Word,
           List^
           ( title(List), member(Word, List) ),
           WordList
         ),
    similar_title_by_word(WordList, SimilarList),
    writeln(WordList),
    ( member(SimilarSolve, SimilarList), writeln(SimilarSolve), fail
    ; true
    ).
 
similar_title_by_word([], []).
similar_title_by_word([Word | WordList], [by(Word, SimilarSolveList) | SimilarList]) :-
    bagof( similar(SimilarSolve),
           ( title(Title1), member(Word, Title1),
             bagof( Title2,
                    ( title(Title2),
                      Title1 @< Title2,
                      member(Word, Title2)
                    ),
                    TitleRest
                  ),
             SimilarSolve = [Title1 | TitleRest]
           ),
           SimilarSolveList
         ),
    !,
    similar_title_by_word(WordList, SimilarList).
similar_title_by_word([_ | WordList], SimilarList) :-
    similar_title_by_word(WordList, SimilarList).