БД сложение - Prolog

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

Всем привет, давно еще спрашивал про списки и БД. понял что надо findall. Суть в том что бы взять из базы оценки и потом их сложить. Добавление и удаление вроде правильно. При сборке выдает ошибки. подскажите где накосячил? Заранее спасибо)

Domains
    list=i*
    i=integer
    student_surname, student_name = string.
    student_mark1, student_group = integer. 
    file=f.
Database
    student(student_surname, student_name, student_group, student_mark1)
Predicates  
    m(char)
    menu
    start
    sum(list,i)
Clauses
 
menu:-  
     clearwindow,
     write("1 Vivod vsex studentov, so srednem balovm, exceeding zadanniy."),nl,
     write("2 New zapis student"),nl,
     write("3 Delete zapisi"),nl,
     write("0 Exit"),nl,
     readchar(C), m(C).
      
m('1'):- 
    findall(S, student(_,_,_, S), L),
    sum(L,S),
    sum([], 0).
    
m('1'):-readchar(_), 
       menu,!.     
m('1'):-write("ERROR!"),readchar(_),menu.
 
sum([H|T], S) :-
        sum(T, ST),
        S=ST + H,
        write(S).
m('2'):- 
       clearwindow, 
       write("Vvod surname:"),nl,
       readln(Surname),
       write("Vvod name:"),nl,
       readln(Name),
       write("Vvod group:"),nl,
       readint(Group),
       write("Vvod ocenku 1:"),nl,
       readint(Mark1),
       write("Vvod ocenku 2:"),nl,
       readint(Mark2),
       write("Vvod ocenku 3:"),nl,
       readint(Mark3),
       write("Vvod ocenku 4:"),nl,
       readint(Mark4),
       assert(student(Surname, Name, Group, Mark1, Mark2, Mark3, Mark4)),write("Zapisano uspeshno"),readchar(_),menu,!.
m('2'):-write("ERROR!"),readchar(_),menu.
 
m('3'):- 
       clearwindow, 
       write("Surname studenta kotorogo nado delete."), nl, 
       readln(Surname),
       write("Name studenta kotorogo nado delete."), nl, 
       readln(Name),
       write("Ukazhite grupu."), nl, 
       readint(Group),     
       retract(student(Surname,Name,Group,_,_,_,_)),write("Delete uspeshno"),readchar(_), 
       menu,!.
m('3'):-write("ERROR!"),readchar(_),menu.
 
m('0'):- 
    save("student.ddb "), 
    retractall(_).
m(_):- 
       menu. 
start:-
       existfile("student.ddb"),!, 
       consult("student.ddb"),
       menu. 
start:-
       openwrite(f,"student.ddb"),
       closefile(f),
       menu. 
GOAL 
Start

Решение задачи: «БД сложение»

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

m('1'):- 
    findall(S, student(_,_,_, S), L),
    sum(L,S),
    !,
    write(S).    
    readchar(_), 
    menu.     
m('1'):-write("ERROR!"),readchar(_),menu.

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

В этом коде представлена реализация функции m, которая отвечает за сложение оценок студентов.

m('1'):- - начало реализации функции m, которая вызывается при выборе пункта меню '1'
findall(S, student(_,_,_, S), L) - этот фрагмент кода собирает все оценки студентов в список L из базы данных. Здесь S - это строка, представляющая собой оценку студента, а student - это факт в базе данных, который содержит оценку студента.
sum(L,S) - этот фрагмент кода суммирует все оценки в списке L и сохраняет результат в переменной S.
! - оператор cut, который прекращает выполнение текущего оператора, если он не является целевым для запроса.
write(S) - этот фрагмент кода выводит сумму оценок на экран.
readchar(_) - этот фрагмент кода читает символ с клавиатуры (используется для перехода к следующему пункту меню).
menu - этот фрагмент кода выводит на экран меню программы.
m('1'):-write(ERROR!),readchar(_),menu. - если при выполнении функции m произошла ошибка (например, не удалось найти оценку студента), то вместо вычисления суммы и вывода результата на экран будет выведено сообщение об ошибке, а затем программа вернется в меню.