anchor.diff:                          foreach(Reader :: read (Reader :: tok (file_get_contents ($file))) as $form)
                             $tmp = Lisp :: eval1 (Reader :: macro_expand ($form));
                          return $tmp;"))
  +(def require-once (Primitive. "$a" "require_once(\"$a\");"));
   (def set-macro! (Primitive. "$s" "$s->macro=true;return $s;"))
   (set-macro! 'set-macro!)
   (def defmacro
  
positive.code:       a
        (recur (+ x 100) (cons (g x (+ x 99)) a)))))
  
  (print "
  <!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">
  <html xmlns=\"http://www.w3.org/1999/xhtml\" xml:lang=\"en\" lang=\"en\">
  
negative.code:      <li>" (str (let [x 1] '(a b c ~x))) "</li>
       <li>" (str (. (Recur. '(1 2 3)) values)) "</li>
       <li>" (load "foo.lisp") "</li>
      </ul>")
  
  (defn f [x]
    (machine (load_program x)))
  
  (f "/tmp/foo.bin")
  
  (print "
      F&ograve;OBAR
    </body>
  </html>")
  