Найти максимальную РАЗНИЦУ с соседним эелементом - Prolog

maxdiff(X, Y, Old, New) :-
    X > Y,
    New is X-Y,
    New > Old,
    !.
maxdiff(X, Y, Old, New) :-
    X < Y,
    New is Y-X,
    New > Old,
    !.
maxdiff(_, _, Old, Old).
 
maxdifflist([X, Y| T], M) :-
    !,
    maxdifflist([Y| T], MT),    
    maxdiff(X, Y, MT, M).
maxdifflist(_, 0).