Пожалуйста, помогите мне с тем, как считать четные числа в списке в Прологе. Я новичок, только начал изучать пролог вчера. Я знаю, чтобы посчитать элементы в списке

mylen([H|Lc],N) :- mylen(Lc,M),N is M+1.
mylen([],0).

И я думаю, что определение четного числа может быть полезным в этом случае, и я думаю, что код может быть что-то вроде:

even(n):-
  N rem 2 =:= 0.

Можете ли вы помочь мне соединить эти две части, чтобы мой код считал четные числа? Я знаю, что мне также нужно добавить счетчик, но я не знаю, как это сделать в Прологе.

Большое вам спасибо за помощь!