Напишите программу Prolog, чтобы найти сумму элементов в данном списке.
domains
x = integer
l = integer*
predicates
sum(l,x)
clauses
sum([],0).
sum([X|List],Sum) :-
sum(List,Sum1),
Sum = X + Sum1.
Bad Butterfly