Раскраска карты на турбо прологе

[supernolya@yandex.]

Ребят! Нужно решить задачку на турбо прологе. Если есть пару минут свободного времени помогите, пожалуйста. Смысл такой. В диалоге вводятся страны, и кто из этих стран соседи. Вывестись должно минимальное количество цветов для расскраски этой карты.

[Veselyn]

А где брать карту?

[supernolya@yandex.]

Помогите осуществить ввод карты (например [[1,1,1],[1,0,1],[1,1,1],[0,1],[1],[]]) с клавиатуры.

код программы:

DOMAINS   i=integer    il=i*   ill=il*

PREDICATES
paint(ill,il,il)%---paint(карта,выход палитра)
check(il,i,il)
getCol(i,il,i,il)
member(il,i)

goal
write("Vvedite kartu"),%---Здесь необходимо ввести карту с клавиатуры-список списков и поместить в Map
getCol(0,[1,2,3,4],Ac,Cols), paint(Map,Out,Cols),!, write("Neobhodimo ", Ac, " cveta").%---в getCol(0,[1,2,3,4],Ac,Cols) [1,2,3,4]-краски в палитре, из них потом выбираем для нашей раскраски, те 1-й цвет, 2-ой цвет и т д 

CLAUSES
paint([],[],_):-!.
paint([G|H],[C|Cols],ColIn):- paint(H,Cols,ColIn), member(ColIn,C), check(G,C,Cols).

check([],_,_):-!.
check([1|_],C,[C|_]):- !,fail.%---если 1, значит есть общая граница, результат неудовлетворительный
check([_|H],C,[_|Cols]):- !, check(H,C,Cols).

getCol(X,_,X,[]).
getCol(X,[G|H],Y,[G|Z]):- !, Xn=X+1, getCol(Xn,H,Y,Z).%---подсчитывает количество цветов , используемых для раскраски

member([X|_],X).
member([_|X],Y):- member(X,Y).

map=[[1,1,1],[1,0,1],[1,1,1],[0,1],[1],[]] - это map = [strana("Chili",A,[B,C,D]),
strana("Peru",B,[A,C,E]),
strana("Panama",C,[A,B,D,E,F]),
strana("Russia",D,[A,C,F]),
strana("England",E,[B,C,F]),
strana("Gemani",F,[E,C,D])], просто записана без повторов