count_occurences(E, List, Count) :-
    findall(Element, (member(Element, List), Element == E), Bag),
    length(Bag, Count).

average(List, Average) :-
    sumlist(List, 0, Sum),
    length(List, Length),
    Average is (Sum / Length).