fix: Fixes

examples/basics/summer.pl

@@ -3,9 +3,7 @@ summer(Start, End, Sum) :-
     Start \== End,
     Next is Start + 1,
     summer(Next, End, Rest),
-    writeln(rest(Rest)),
-    Sum is Start + Rest,
-    writeln(sum(Sum)).
+    Sum is Start + Rest.
 
 my_sum :-
     write('Enter start: '),
@@ -17,6 +15,8 @@ my_sum :-
     write(Sum), nl.
 
 main :-
-    summer(1, 5, Sum).
+    Start = 1, End = 9,
+    summer(Start, End, Sum),
+    write('The sum of '), write(Start), write(' to '), write(End), write(' is: '), write(Sum), nl.
 
 :- initialization(main).

examples/meta/calculator.pl

@@ -0,0 +1,15 @@
+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).
+