anchor.diff:  	      (*ref* (elt *elements* 2))
   	      (*query* (elt *elements* 3))
   	      (*reply-type* ,default-reply-type)
  -	      (,len (length *elements*))
  +	      ,@(if args 
  +		    `(,len (length *elements*))
  +		    nil)
   	      ,@(let ((i 4))
   		     (mapcar #'(lambda (arg) 
   				 (prog1 `(,arg (when (> ,len ,i)  (map 'string #'code-char (elt *elements* ,i))))
  
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: 	  
  	   ,@body))))
  
  
  (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*)))
  