elementCount ([X|Rest], X, N) :-
        N is N + 1,
        elementCount(Rest, X, N).

elementCount ([_|Rest], X, N) :-
        elementCount(Rest, X, N).

elementCount ([], X, 0).