как переделать программу с turbo prolog на visual prolog 5.2 ?

domains
slist=string*
region=region(string,string,slist)
regions=region*
 
predicates
color_map(regions,slist)
color_region(region,slist)
select(string,slist,slist)
members(slist,slist)
test_color(string,regions)
map(string,regions)
colors(slist)
member(string,slist).
 
clauses
color_map([Region|Regions],Colors) :-color_region(Region,Colors),color_map(Regions,Colors).
color_map([],_).
 
color_region(region(_,Color,Neighbors),Colors) :-
select(Color,Colors,Colors1),
members(Neighbors,Colors1).
 
select(X,[X|Xs],Xs).
select(X,[Y|Ys],[Y|Zs]) :- select(X,Ys,Zs).
 
member(X,[X|_]).
member(X,[_|Xs]):-member(X,Xs).
 
members([X|Xs],Ys) :- member(X,Ys), members(Xs,Ys).
members([],_).
 
test_color(Name,Map) :-
map(Name,Map),
colors(Colors),
color_map(Map,Colors).
 
map("test",[region(a,A,[B,C,D]), region(b,B,[A,C,E]),
region(c,C,[A,B,D,E,F]), region(d,D,[A,C,F]),
region(e,E,[B,C,F]), region(f,F,[C,D,E])]).
 
map("west_europe",
[ region("portugal",P,[E]), region("spain",E,[F,P]),
region("france",F,[E,I,S,B,WG,L]), region("belgium",B,[F,H,L,WG]),
region("holland",H,[B,WG]), region("west_germany",WG,[F,A,S,H,B,L]),
region("luxembourg",L,[F,B,WG]), region("italy",I,[F,A,S]),
region("switzerland",S,[F,I,A,WG]), region("austria",A,[I,S,WG])]).
 
colors(["red","yellow","blue","white"]). 
 
goal
test_color("west_europe",Map),write(Map).

implement colorMap
 * *open core, console
constants
 * *className = "colorMap".
 * *classVersion = "".
clauses
 * *classInfo(className, classVersion).
domains
r = reference string.
s = r*.
страна = страна(string,r,s).
карта = страна*.
class predicates
раскрасить:(карта,s) nondeterm anyflow.
цвет_страны:(страна,s) nondeterm anyflow.
выбрать:(r,s,s) nondeterm anyflow.
members:(s,s) nondeterm anyflow.
member:(r,s) nondeterm anyflow.
clauses
раскрасить([Страна|Карта],Цвета):-
 * цвет_страны(Страна,Цвета),
 * раскрасить(Карта,Цвета).
раскрасить([],_).
 
цвет_страны(страна(_,Цвет,Соседи),Цвета):-
 * выбрать(Цвет,Цвета,Цвета1),
 * members(Соседи,Цвета1).
 
выбрать(X,[X|L],L).
выбрать(X,[Y|L],[Y|T]):-выбрать(X,L,T).
 
members([X|L],T):-member(X,T),members(L,T).
members([],_).
 
member(X,[X|_]).
member(X,[_|T]):-member(X,T).
 
run():- init(),
 * * * *Цвета = ["красный","жёлтый","синий","белый"],
 * * * *Карта = [страна("Чили",A,[B,C,D]),
 * * * * страна("Перу",B,[A,C,E]),
 * * * * страна("Панама",C,[A,B,D,E,F]),
 * * * * страна("Ямайка",D,[A,C,F]),
 * * * * страна("Васюки",E,[B,C,F]),
 * * * * страна("Лилипутия",F,[E,C,D])],
 * *раскрасить(Карта,Цвета),
 * *B<>A,C<>A,D<>A,C<>B,E<>B,C<>D,C<>E,C<>F,D<>F,E<>F,
 * *!,
 * *write("A=",A,", B=",B,", C=",C,", D=",D,", E=",E,", F=",F),nl;
 * * *succeed(). 
end implement colorMap
goal *mainExe::run(colorMap::run).