common_list([X],[X]). common_list([X|Tail],Y):- member(X,Y). common_list([X|Tail],Y):- common_list(Tail,Y).