

max(L,X):-
    member(X,L),
    testmax(X,L).

testmax(_,[]).
testmax(X,[Y|R]) :- 
    X >= Y,
    testmax(X,R).

member(X,[X|_L]).
member(X,[_Y|L]) :- 
      member(X,L).


 