Напишите предикат p( +L, +N, ?R), который удаляет N элементов с конца списка L - Prolog

Здравствуйте! Помогите решить задачу, буду благодарен. Напишите предикат p( +L, +N, ?R), который удаляет N элементов с конца списка L.

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

?- Zs = [1,2,3,4,5], N = 2, length(Ys, N), append(Xs, Ys, Zs).
Zs = [1, 2, 3, 4, 5],
N = 2,
Ys = [4, 5],
Xs = [1, 2, 3] ;
false.

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

В данном коде на языке Prolog происходит следующее:

Создается список Zs, содержащий пять элементов: 1, 2, 3, 4, 5.
Задается значение переменной N равное двум.
Выполняется операция length(Ys, N), где Ys - это список, который будет содержать два последних элемента из списка Zs.
Выполняется операция append(Xs, Ys, Zs), где Xs - это список, который будет содержать первые три элемента из списка Zs, Ys - это список, содержащий два последних элемента из списка Zs, и Zs - это исходный список, который после выполнения операции будет содержать все пять элементов.
В результате выполнения кода получается список Zs, содержащий все пять элементов: 1, 2, 3, 4, 5.
Дополнительно выводится сообщение false, которое означает, что больше нет решений для данной задачи.