Постфикс списка на прологе - Prolog

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

доброго времени суток как получить постфикс списка?смог сделать только префикс:

                    Листинг программы
                
prefix(_, []).
prefix([T1|H1], [T1|H2]) :-prefix(H1, H2).

                    Листинг программы
                
postrix ([1,2,3],X)
X=[[1,2,3],[2,3],[3]]

- это должен быть результат, но как не менял... в общем, ничего хорошего не выходит. а ещё, даже не знаю, как назвать эту функцию. получить все сегменты списка. как-то так должно выглядеть:

                    Листинг программы
                
segms ([1,2,3],X)
X=[[1,2,3],[1,2],[2,3],[1],[2],[3],[]]

здесь вообще даже не знаю, с чего начать подскажите, пожалуйста!

Решение задачи: «Постфикс списка на прологе»

textual
                            Листинг программы 
                        
 
                        
                          
                    
domains
int=integer
intl=int*
intll=intl*
 
predicates
post_fix(intl,intll)
postfix(intl,intll)
 
clauses
post_fix([X],[[X]]) :- !.
post_fix([_|T],[T|Z]) :- post_fix(T,Z).
 
postfix(X,[X|Y]) :- post_fix(X,Y).