accumulator :-
    Sum = 0,
    shift(Number),
    NewSum is Sum + Number,
    write("Result is: "), writeln(NewSum).

main :-
    reset(accumulator, Number, Cont),
    between(1, 5, Number),
    forall()
    call(Cont),
    writeln("End of calculation").

:- initialization(main).