occ(_,[],0):-!.
occ(A,[A|T],N):-
	conta(A,T,N2),
	N1 is N2+1,
	N=N1.
occ(A,[_|T],N):- occ(A,T,N).
