2016-01-27: first working version of enter three witches

first working version of enter three witches

diff --git a/examples/enter-three-witches.w b/examples/enter-three-witches.w
new file mode 100755
--- /dev/null
+++ b/examples/enter-three-witches.w
@@ -0,0 +1,34 @@
+#!/usr/bin/env sh
+exec guile -L $(dirname $(dirname $(realpath "$0"))) --language=wisp -e '(@@ (examples enter-three-witches) main)' -s "$0" "$@"
+; !#
+
+define-module : examples enter-three-witches
+
+define-syntax Enter
+ syntax-rules ()
+  : _ name b ...
+    begin
+      define-syntax name
+        syntax-rules ::: ()
+          : _ words :::
+            format #t "~A\n" 
+              string-join 
+                map : lambda (x) (string-join (map symbol->string x))
+                      quote : words :::
+                . "\n"
+      Enter b ...
+  : _ b ...
+    begin 
+
+; define-syntax-rule : First_Witch a ...
+;   format #t "~A\n" 
+;     string-join 
+;       map : lambda (x) (string-join (map symbol->string x))
+;             quote : a ...
+;       . "\n"
+
+define : main args
+  Enter First_Witch
+  First_Witch
+      When shall we three meet again
+      In thunder, lightning, or in rain?