anchor.diff:  	  
   	   ,@body))))
   
  -(defun add-math-appmod ()
  -  (let ((hello-world-lfe (write-module-string "addition" (cleric:this-node) "(addition GET (A B))")))
  -    (send-file-for-compilation "addition" hello-world-lfe))
  -  (add-appmod "addition")
  -  (register "addition"
  -	    (easy-handler (a b) (:|html|)
  -	      (block nil
  -		(if (and a b) 
  -		    (let ((a-int (handler-case (parse-integer a)
  -				   (sb-int::simple-parse-error () 
  -				     (reply "parse error on a")
  -				     (return)))))		  
  -		      (let ((b-int (handler-case (parse-integer b)
  -				     (sb-int::simple-parse-error ()
  -				       (reply "parse error on b")
  -				       (return)))))
  -			(reply (format nil "~s" (+ a-int b-int)))))
  -		    (reply "not enough args"))))))
   
  +(defun hello-world (control-message)
  +  (let* ((msg (cleric:message control-message))
  +	 (vector (cleric:elements msg)))
  +    (let ((type (elt vector 0))
  +	  (dest (elt vector 1))
  +	  (ref (elt vector 2))
  +	  (query (elt vector 3)))
  +      (cleric:send dest (cleric:tuple ref (cleric:tuple :|html| "Hello World"))))))
   
   (defun init ()
     (let ((yaws-server (cleric-epmd:lookup-node "yaws" *yaws-server-node-name*)))
  
positive.code:   (node-listener-thread #'hash-dispatch)
    (let ((hello-world-lfe (write-module-string "hello_world" (cleric:this-node) "(hello_world GET ())")))
      (send-file-for-compilation "hello_world" hello-world-lfe))
    (add-appmod "hello_world")
    (register "hello_world" #'hello-world))
  
  
  ;(cleric:reg-send *pid* "cleric_listener" "yaws" "Hello, Erlang world!")
negative.code: 	      (*ref* (elt *elements* 2))
  	      (*query* (elt *elements* 3))
  	      (*reply-type* ,default-reply-type)
  	      ,@(if args 
  		    `(,len (length *elements*))
  		    nil)
  	      ,@(let ((i 4))
  		     (mapcar #'(lambda (arg) 
  				 (prog1 `(,arg (when (> ,len ,i)  (map 'string #'code-char (elt *elements* ,i))))
  