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