Вывести максимальный элемент списка - Prolog

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

Вывести максимальный элемент списка. Не могу понять в чем ошибка(( Реализовать нужно в форме. Ругается на "maxlist ([1,2,3,4,5,6,7,8,9,10],X). "

                    Листинг программы
                
 
                        
                          
                    
implement list
    open core
 
constants
    className = "query/list".
    classVersion = "".
 
    domains 
   
    list = integer*. 
    class predicates 
   
        maxlist :(list,integer)procedure(i,o). 
    clauses 
    classInfo(className, classVersion).
 maxlist([X],X).
maxlist([H|Tail],H):-
maxlist(Tail,M),
H>M,!.
maxlist([_|Tail],M):-maxlist(Tail,M).
maxlist ([1,2,3,4,5,6,7,8,9,10],X). 
  calc():- 
 
stdio::write(X),
stdio::nl.
end implement list

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

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

stdio::write(X),
stdio::nl.

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

Заголовок программы: %%% (89,88) :-.
Импортируется пакет stdio.
Переменная X инициализируется значением 0.
Переменная Y инициализируется значением 0.
Переменная Z инициализируется значением 0.
Переменная A инициализируется значением 0.
Переменная B инициализируется значением 0.
Переменная C инициализируется значением 0.
Переменная D инициализируется значением 0.
Переменная E инициализируется значением 0.
Переменная F инициализируется значением 0.
Переменная G инициализируется значением 0.
Переменная H инициализируется значением 0.
Переменная I инициализируется значением 0.
Переменная J инициализируется значением 0.
Переменная K инициализируется значением 0.
Переменная L инициализируется значением 0.
Переменная M инициализируется значением 0.
Переменная N инициализируется значением 0.
Переменная O инициализируется значением 0.
Цикл в блоке от 1 до 20.
В каждой итерации цикла переменная X увеличивается на 1.
Затем выводится значение переменной X.
Затем выводится символ новой строки.
Конец цикла.
Конец программы.