задача:загрузить набор грузов, заданный списком весов грузов в несколько одинаковых грузовиков.
Код Prolog
select(a,[a|B],B).
select(x,[a|B],[a|C]):-select(x,B,C).

gruz(A,B,C,D):-gruz1(A,B,B,C,D).

gruz1([],_,_,_,[]).
gruz1(L,c,f,n,[a|D]):-select(a,L,M),
НЕ(БОЛЬШЕ(a,c)),gruz1(M,#c-a#,f,n,D).
gruz1(L,_,f,n,["|"|D]):-БОЛЬШЕ(n,0),gruz1(L,f,f,#n-1#,D).

?gruz([17,13,9,7,4,3,2,5,6,3,1],20,4,V),!.


вызов([список масс грузов], грузоподъемность, количество грузовиков, %ответ%)

тут четыре грузовика,а как сделать чтобы грузовики тоже как и грузы задавались списком?