% elementCount(List, Element, Count)
  %  - returns the number of occurances of Element in List
  elementCount([X|Rest], X, N) :-
          elementCount(Rest, X, NL),
          N is NL+1.
  
  elementCount([_|Rest], X, N) :-
          elementCount(Rest, X, N).
  
  elementCount([], _, 0).
  elementCount([X], X, 1).