Нужно решение такой задачи, найти среднее арифметическое значение числового списка

Вот тут мой алгоритм
sum([], 0). /* сумма элементов пустого списка равна нулю */
sum([H|T], S) :-
sum(T, S_T), /* S_T — сумма элементов хвоста */
S is S_T + H. /* S — сумма элементов исходного списка */
avg(L,A):-
summa(L,S), /* помещаем в переменную S сумму элементов списка */
length(L,K), /* переменная K равна количеству элементов списка */
A is S/K. /* вычисляем среднее как отношение суммы к количеству */


Как к нему обращаться я не знаю, помогите
Ну например надо подсчитать среднее значение такого списка [1,2,3], как правильно обратиться или может алгоритм не правильный, помогите, пожалуйста