between(A,A,B):-A=<B,write(A).
between(X,A,B):-A<B,A1 is A + 1, between(X,A1,B).
?-between(X,1,5).