Ввести список с клавиатуры и удалить из списка первый элемент - Prolog

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

может кто знает в чем ошибка

                    Листинг программы
                
 
                        
                          
                    
domains
      list_d = integer*
    predicates
      readlist(list_d)
      del_last_el(list,list)
 
    clauses  
      readlist([Head|Tail]):-
        write("enter element value or empty string to finish: "), readint(Head), !,
        readlist(Tail).
        del_last_el([_],[]).
   del_last_el([H|T],[H|T1]):-del_last_el(T,T1).
 
      readlist([]).
    goal
      clearwindow,
   write("Enter list"),nl,
   read_list(L),
   del_last_el(L,L1),
   write("Rezult=",L1).
readlist(List).

Решение задачи: «Ввести список с клавиатуры и удалить из списка первый элемент»

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

GOAL
  clearwindow,
  write("Enter list"),nl,
  read_list(L),
  L = [_ | L1],
  write("Rezult=",L1).

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

clearwindow - очистка окна (консоли) от предыдущих выводов
write(Enter list) - вывод на экран запроса на ввод списка
nl - перевод строки (для удобства чтения)
read_list(L) - ввод списка с клавиатуры и сохранение его в переменной L
L = [_ | L1] - удаление первого элемента из списка (L1 - остаток списка после удаления первого элемента)
write(Rezult=,L1) - вывод на экран результата (остатка списка без первого элемента)