occ(A,L,N):-
	var(A),
	!, member(A,L),
	conta(A,L,M),
	N is M.
occ(A,L,N):-
	conta(A,L,M),
	!,
	N is M.
