Prolog

[hilos]

Здравствуйте.Заранее прошу сильно не пинать.Ситуация такая.Есть несколько программ на prolog'e,но они не работаю ни в vip 7 ни в GNU Prolog
Задания такие:
1)база знаний родственных связей
2)подсчет длинны списка
3)сумма нечетных элементов списка
вот сами программы.Кто может что то поправите.

1 база знаний родственных связей

domains
name=symbol

predicates
nondeterm parrent(name,name)
nondeterm sister(name,name)
%nondeterm twochild(name)
%nondeterm aunt(name)
%nondeterm happy(symbol)
nondeterm grand(name,name)
nondeterm grandgrand(name,name)

clauses
parrent(pam,bob).
parrent(tom,bob).
parrent(tom,liz).
parrent(bob,emm).
parrent(bob,pat).
parrent(pat,jimm).
sister(pat,emm).
sister(bob,liz).
grand(bob,jimm).
grand(tom,emm).
grand(tom,pat).
grand(pam,pat).
grand(pam,emm).
grandgrand(pam,jimm).
grandgrand(tom,jimm).
%happy(X):-parrent(X,Y), write(X, "happy, because", Y, "\n"),fail.
%twochild(X):-parrent(X,Y), sister(Y,Z), parrent(X,Z).
%aunt(X):-parrent(Y,Z), sister(Y,X), write(X,"aunt",Z,"\n"),fail.

goal
%happy(X).
%twochild(X).
%aunt(X).
grandgrand(tom,jimm).

2.подсчет длинны списка

class my
predicates
  length_of : (A*, integer) procedure(i,o).
end class
 
implement my
clauses
  length_of([], 0).
  length_of([_|T], L):-
    length_of(T, TailLength),
    L = TailLength + 1.
end implement
 
goal
  console::init(),
  my::length_of([1, 2, 3], L),
  stdio::write(L).

3.сумма нечетных элементов списка

odd(A) :-
    B is A mod 2,
    B =:= 1,
    !.
 
odd_sum([], 0) :-
    !.
odd_sum([Head | Tail], R) :-
    odd(Head),
    odd_sum(Tail, R_),
    plus(Head, R_, R),
    !.
odd_sum([_ | Tail], R) :-
    odd_sum(Tail, R).
 
%% Examples:
    
%% ?- odd_sum([1,2,1,13,100], Result).
%% Result = 15.
 
%% ?- odd_sum([2,4,6], Result).
%% Result = 0.