occurrence(L,E).
occurrence([a],a).
occurrence([b,c],b).
occurrence([b,c],c).
occurrence([d,e,f],d).
occurrence([d,e,f],e).
occurrence([d,e,f],f).

occurrence([X|T],X) :- list(T).
occurrence([X,Y|T],Y) :- list(T).

