zakres(N1,N2,[]) :-
    N1 > N2.

zakres(N1,N1,[N1]).

zakres(N1,N2,L) :-
    N1 < N2,
    N11 is N1 +1,
    zakres(N11,N2,L1),
    L = [N1|L1].

ostatni([X],X).
ostatni([_|TAIL],X) :-
    ostatni(TAIL,X).