Ребята, помогите пожалуйста.
Вот задача нахождения факториала на VIP v5.2 по итеративному алгоритму:

prolog Код:
predicates
       factorial(unsigned, long)
       factorial(unsigned, long, unsigned, long)    
clauses
       factorial(N, FactN) :-
         factorial(N, FactN, 1, 1). 
       factorial(N, FactN, N, FactN) :- !.
       factorial(N, FactN, I, P) :-
          NewI = I+1,
          NewP = P*NewI,
          factorial(N, FactN, NewI, NewP).
goal
X=3,
factorial (X, FactX).

А мне нужно решить задачу нахождения суммы ряда ряда 
s=1/sin1 + 1/(sin1+sin2) + ... +1/(sin1+sin2+...sinN), где N - натуральное число, тоже итеративным алгоритмом. Препод говорит что решение очень похоже на нахождение факториала, нужно только немного изменить.
Кто может, помогите.