Две маленькие задачи на Prolog SWI

Нужно написать код для решения двух задач:

1) "найти среднее арифметическое листьевых вершин бинарного дерева"

2) "Выполнить преобразование списка. [a,a,a,a,b,c,c,a,a,d,e,e,e,e] => [[a,a,a,a],[b],[c,c],[a,a],[d],[e,e,e,e]]"

Среда разработки- Prolog SWI, т.е. не Turbo. Могу уточнить детали, если необходимо.