occ(A,L,N):-
	length(L,S), member(A,L),
	delete(L,A,X), length(X,S1),
	N is S-S1.
