Два списка создать новый список включают конкретные буквы

Question

Мне нужно создать два списка, оба списка должны иметь одинаковый размер. Если в первом списке есть пример chockolate, а в другом - chockolan. Затем это должен быть chockol в списке M. Что я сделал:

%same_letters([Head| Tail], [Head| Tail2]) :-
 % same_letters(Head),
 %   same_letters(Tail, Tail2).

same_letters([Head| Tail], List) :-
    \+ same_letters(Head),
    same_letters(Tail, List).
m(c,h,o,c,k,o,l).
m(h,e,l,lo).

% length
length([],0).
length([H|T],L) :-
    length(T,L1),
    L is L1+1. 


?- same_letters([c,h,o,c,k,o,l,a,n], List).
List = [c,h,o,c,k,o,l] ;
?-same_letters([h,a,e,l,o).
List = [h,l,o]

%check if is in list
List=[c,h,o,c,k,o,l,a,n,h,a,e,l,o].              
List = [c,h,o,c,k,o,l,a,n,h,a,e,l,o]  
     member(c,h,o,c,k,o,l,a,n,h,a,e,l,o, List).           
List = [c,h,o,c,k,o,l,a,n,h,a,e,l,o|_]?