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

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