Prolog - mapa colores

Hola. Necesito hacer el tipico programa de prolog en el q hay q colorear un mapa de N regiones, de manera q ninguna de las regiones adyacentes tengan en mismo color. No he encontrado un codigo que me seirva en ningun sitio. Cualquier ayuda sera bienvenida. De antemano muchas gracias.

Yo lo podria ayudar.........

%% comienza por definir los diferentes colores, declarando como hechos

%% suponiendo que tienes 3 colores rojo, verde, azul

diferente(rojo,verde).
diferente(verde,rojo).
diferente(rojo,azul).
diferente(azul,rojo).
diferente(verde,azul).
diferente(azul,verde).

%% Define la regla de acuerdo a las regiones y sus vecindades...
%% suponiendo que A no debe tocar a la regiòn B, así como tampoco C y D

colorea(A,B,C,D,E) :- diferente(A,B) , diferente(C,D).


%% ejecuta el programa consultando: colorea(A,B,C,D,E)