anchor.diff:  ~A
   "
   	  (print-program-usage/option-text '(("help" nil "This helpful message.")
  -					     ("force" nil "Overwrite any existing output.")))
  +					     ("force" nil "Overwrite any existing output.")
  +					     ("chains-verbose" nil "Output information which leaf is being executed.")
  +					     ("chains-group-size" "size" "Execute <size> leaves starting at <leaf>*<size>.")))
   	  (print-program-usage/suffix)))
   
   (defun print-program-usage (help-data &optional (stream *standard-output*))
  
positive.code: 	(help-data (gensym "HELP-DATA")))
      `(let ((,help-data (list ,@(mapcar #'help-data custom-options))))
         (lisp-executable:define-program ,name
  	   (lisp-executable:&options help force
  				     ,@(mapcar #'option-definition custom-options)
  				     lisp-executable:&arguments ,tree ,depth ,leaf)
  	 (declare (lisp-executable:conversion-function (integer 1) ,depth)
  		  (lisp-executable:conversion-function (integer 0) ,leaf)
  		  ,@(reduce #'append custom-options :key #'option-declarations)
  		  (ignorable force ,@(mapcar #'custom-option-name custom-options)))
  	 (cond
  	   (help
  	    (print-program-usage ,help-data)
  
negative.code: 		 ,@prologue))	    
  	    (perform-program ,tree ,depth ,leaf
  			     :force force
  			     :chains-group-size (or chains-group-size-value 1)
  			     :chains-verbose chains-verbose
  			     ,@(reduce #'append custom-options :key #'option-perform-arguments))
  	    0))))))
  
  