максимальное значение списка пролог

max_list(+List:list(number), -Max:number)
Gorgeous Gorilla