Удалить элементы из списка.PROLOG

[Mediaplay]

Как сделать что бы удалить все элементы из списка, кроме первого и последнего?
Вот код создания списка:

process(Input) :-
write('> '),
read(Command),
perform(Command,Input,Output),
process(Output).

perform(show,X,X) :- write(X),nl.
perform(add(Item),Before,After) :- append(Before,[Item],After).

perform(clear,Before,After):-append(Before,After,Before).

perform(set(Newlist),Before,After):-After=Newlist.