Работа со списками

Написать следующие процедуры:

1) Построение всех префиксов списка. Префикс – это любая начальная часть списка. Пример вызова процедуры: ?-prefix([1,2,3],X). X= [[],[1],[1,2],[1,2,3]] Префиксы в результирующем списке могут следовать в любом порядке.

2) Построение всех постфиксов списка. Постфикс – это любая конечная часть списка. Пример вызова процедуры: ?-postfix([1,2,3],X). X= [[],[3],[2,3],[1,2,3]] Постфиксы в результирующем списке могут следовать в любом порядке.

3) Построение всех сегментов списка. Сегмент – это любая непрерывная часть списка. Пример вызова процедуры: ?-segms([1,2,3],X). X= [[],[1],[2],[3],[1,2],[2,3],[1,2,3]] Сегменты в результирующем списке могут следовать в любом порядке.

4) Построение всех перестановок списка. Пример вызова процедуры: ?-perms([1,2,3],X). X= [[1,2,3],[1,3,2],[2,1,3],[2,3,1],[3,1,2],[3,2,1]] Перестановки в результирующем списке могут следовать в любом порядке.

В отчёте должны быть процедуры на Прологе и описание по-русски.