Перевести с Visual Prolog на Turbo Prolog

Нужно перевести код с Visual Prolog на Turbo Prolog

domains

персона = п(string,string)

друзья = персона*

sl = string*

predicates

nondeterm решение(друзья)

nondeterm принадл(string,sl)

nondeterm принадл(персона,друзья)

имеет_сестру(string)

младший(string)

старше(string,string)

clauses

имеет_сестру("Борисов").

младший("слесарь").

старше(X,Y):- not(младший(X)),X

решение(Друзья):-

Профессии=["слесарь","токарь","сварщик"],

принадл(Борисов,Профессии),

принадл(Иванов,Профессии),Иванов

принадл(Семенов,Профессии),Семенов

Друзья=[п("Борисов",Борисов),п("Иванов",Иванов),

п("Семенов",Семенов)],

принадл(п(Слесарь,"слесарь"),Друзья),

not(имеет_сестру(Слесарь)),

старше(Семенов,"токарь").

принадл(Эл,[Эл|_]).

принадл(Эл,[_|Список]):- принадл(Эл,Список).

goal

решение(Друзья).