Valor máximo de una lista Prolog

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