Подсчёт количества элементов списка кратных двум на Prolog

стоит задача подсчитать количество элементов списка кратных двум. Не пойму как правильно это оформить, на данный момент функция считает сколько всего элементов в списке.

domains
list=integer*
predicates
nondeterm wr(list,integer)
clauses
wr([],0).
wr([_|T],L):- wr(T,N),L=N+1.
goal
wr([2,3,4,6,9,8,12],X).