Necesito hacer un predicado que reciba una lista numérica e imprimir solo los números que terminan en 7 y que la suma de sus dígitos sea mayor que 100

Hice los predicados para separados pero necesito ayuda para hacer una unión de los dos predicados, quiero decir que los dos predicados van en un solo predicado, esto es lo que hice hasta ahora:

%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).