num_between(X, Y, []) :- X > Y.
num_between(X, Y, [X|Tail]) :-
X =< Y
, num_between(Next, Y, Tail).
:- num_between
(8,15,A
), write(A
), nl.
bnVtX2JldHdlZW4oWCwgWSwgW10pIDotIFggPiBZLgoKbnVtX2JldHdlZW4oWCwgWSwgW1h8VGFpbF0pIDotCiAgICBYID08IFkKLCAgIE5leHQgaXMgWCArIDEKLCAgIG51bV9iZXR3ZWVuKE5leHQsIFksIFRhaWwpLgoKOi0gbnVtX2JldHdlZW4oOCwxNSxBKSwgd3JpdGUoQSksIG5sLg==