Strawberry prolog списки

найти N-ый элемент списка. подскажите пожалуйста, сделала вот так:

appened([G|H],1,H).
appened([G|H],N,[G|L]):- N > 1, Nn is N - 1,appened(H,Nn,L).
?-appened([8,1,5,7,2],3,X), write(X).

но получается, что он удаляет 3-й элемент, а надо чтобы выводил 3-й элемент, как это сделать?

Листинг программы

nth([H|_], 1, H).
nth([_|T], N, X) :- 
    N > 1, 
    Nn is N - 1, 
    nth(T, Nn, X).

Объяснение кода листинга программы

Код на языке Prolog:

nth([H|_], 1, H).
- Название: nth
- Аргументы: [H|_], 1, H
- Значение: H
- Описание: Когда входной список состоит из одного элемента (головы), возвращается этот элемент.
nth([_|T], N, X) :- N > 1, Nn is N - 1, nth(T, Nn, X).
- Название: nth
- Аргументы: [_|T], N, X
- Значение: X
- Описание: Когда входной список содержит более одного элемента, код проверяет, является ли индекс N больше 1. Если это так, то он вычисляет новый индекс Nn как N - 1 и рекурсивно вызывает функцию nth для списка T и нового индекса Nn, присваивая результат переменной X. Если индекс N равен 1, то возвращается пустой список.
В результате, функция nth возвращает элемент списка с указанным индексом или пустой список, если индекс выходит за пределы списка.