2014-11-19: sxml with replacement.

sxml with replacement.

diff --git a/tests/sxml.w b/tests/sxml.w
--- a/tests/sxml.w
+++ b/tests/sxml.w
@@ -1,14 +1,31 @@
 use-modules : sxml simple
+use-modules : ice-9 match
 
-; write xml to the output port
-sxml->xml
+; define a template
+define template
    quote
      html
          head : title "test"
          body
              h1 "test"
+             header-foo "the header"
              p "it " : em "works!"
                br
                " it actually works!"
 
+; transform it
+define template2
+ let loop
+  : l template
+  match l
+    : 'header-foo a ...
+      list 'p '(@ (style "margin-left: 2em")) : list 'strong : map loop a
+    : a ...
+      map loop a 
+    a
+      . a
+
+; write xml to the output port
+sxml->xml template2
+
 newline