Prolog - Contar variables iguales en una lista.

Hola a todos, de antemano gracias por leer mi mensaje.

Necesito hacer un predicado prolog que dada una lista de variables, me cuente la cantidad iguales que tiene.

Por favor si alguien tiene idea de como contar en una lista elementos iguales y salir del predicado si el contador al menos da 1, le voy a agradecer mucho su ayuda.
Saludos Mar

contar(X,[],0).
contar(X,[X|L],C):- !,contar(X,L,C1), C is C1+1.
contar(X,[Y|L],C):- contar(X,L,C).

Ya lo hice. Muchas gracias. Quisiera saber si es posible que desde un programa prolog pueda leer desde una BD excel o sql . Necesito hacer un programa experimental con unos datos.

Gracias.