Помогите сформировать список произведений (подробности в задании) - Prolog

Формулировка задачи:

Сформировать список L1 из произведений всех отрицательных элементов списка L, из произведений отрицательных элементов последних n-1 элементов списка L1, и тд.

Решение задачи: «Помогите сформировать список произведений (подробности в задании)»

Листинг программы

domains
int=integer
intl=int*
 
predicates
prod_neg(intl,int)
task(intl,intl)
 
clauses
prod_neg([],1).
prod_neg([H|T],R) :- H<0, prod_neg(T,R1), R=R1*H.
prod_neg([H|T],R) :- H>=0, prod_neg(T,R).
 
task([],[]).
task([H|T],[R|TT]) :- prod_neg([H|T],R), task(T,TT).

Объяснение кода листинга программы

В данном коде используется язык программирования Prolog.
Код содержит два домена: int (целое число) и intl (целое число, управляющее потоком).
Есть два предиката: prod_neg и task.
Предикат prod_neg используется для вычисления отрицательного произведения чисел. Он принимает два аргумента: intl (список целых чисел) и int (целое число). Если список пустой, то результат равен 1. Если первый элемент списка отрицательный, то результат равен произведению последнего элемента списка и этого отрицательного числа. Если первый элемент списка положительный или ноль, то результат равен результату вызова этого предиката для оставшегося списка и int.
Предикат task используется для решения задачи. Он принимает два аргумента: intl (список целых чисел) и intl (список целых чисел). Если первый список пустой, то результат пустой список. Если первый элемент списка положительный или ноль, то результат - это результат вызова предиката prod_neg для оставшегося списка и int, добавленный к результату вызова предиката task для оставшегося списка и int.
Код решает задачу формирования списка произведений чисел.