Eu preciso criar um predicado que receba uma lista numérica e imprimir apenas os números que terminam em 7 e que a soma de seus dígitos seja maior que 100

Fiz os predicados para separados, mas preciso de ajuda para fazer a união dos dois predicados, quero dizer que os dois predicados entram em um único predicado, foi o que fiz até agora:

%sum of digits greater than 100
 multi(X):-
0 is X mod 100
sum([],0).
sum([P|Q],Z).
multi(P), sum(Q,Z1), Z is P + Z1.
sum([P|Q],Z).
not multi(P), sum(Q,Z).

%print the numbers that end in 7
end(Y):-
7 is Y mod 10.
listend([],0).
listend([P|Q]):-
end(P),write(P), nl, listend(Q).
listend([P|Q]):-
not(end(P)), listend(Q).