1 files changed, 3 insertions, 2 deletions

diff --git a/system.pl b/system.pl
index 5883aee..35db774 100644
--- a/system.pl
+++ b/system.pl
@@ -69,8 +69,6 @@ If ; _ :-
 _ ; Else :-
 	Else.
 
-A , B :- A , B.
-
 % Term unification
 A = A.
 
@@ -696,3 +694,6 @@ halt :-
 
 consult(File) :-
 	loader:load_module_from_file(File).
+
+twice(!) :- '$write_term'(4, 'C ', []).
+twice(true) :- '$write_term'(4, 'Moss ', []).
\ No newline at end of file