Υǥ쥯ȥκ
#  
#  κƵŪ
#  

(_) :-
        (_,_).

([A,B],_) :-
        _ is B - A.
([A,B|R],_) :-
        \+(R = []),
        _ is B - A,
        ([B|R],_).