Voorlopige indiening

examples/meta/ceremony.pl

@@ -0,0 +1,15 @@
+printer :-
+    writeln("Good evening everyone!"),
+    write("Thanks for coming "),
+    shift(Name),
+    write(Name), write(", ").
+
+main :-
+    writeln("/Ceremony starts/"),
+    reset(printer, Name, Cont),
+    \+ \+ ( Name = "John", call(Cont) ),
+    \+ \+ ( Name = "Mary", call(Cont) ),
+    writeln("and my parents!"),
+    writeln("/Ceremony ends/").
+
+:- initialization(main).