anchor.diff:      (when jewel-cands
   	       ;; (<= minimum (max-at-skill (preliminary-forest prelim)
   	       ;; 				 (split-env-target-id env))))
  -      (incf *counter-1*)
         (let ((armor-cands (split-forest-at-skill
                             (preliminary-forest prelim)
                             (split-env-target-id env)
  
positive.code:       (decode-sig-full (third armor-set) 3))))
                      
    
  ;; experiments 
  (init)
  
  (defvar *foundation* (make-jewel-filter-emitter
  		      (emitter-from-list
  		       (search-foundation '((91 10) (46 10))))
  		      '((91 10) (46 10))))
  (defvar *pure-list* 
    (progn (reset-emitter *foundation*)
  	 (loop for x = (emit *foundation*) until (null x)
  	    collect x)))
  
  (defun run-experiment ()
    (loop for x in *pure-list*
       maximize (max-at-skill (preliminary-forest x)
  			    121)))
  
  
negative.code: 	 ;; (trace-signal nil)
  	 (prelim-key (the (unsigned-byte 64)
  			  (preliminary-key prelim)))
  	 (max-target-points (funcall (split-env-forest-maximizer env)
                                       (preliminary-forest prelim)))
  	 (prelim-inv-key (encoded-skill-+ 
  			  prelim-key
  			  (replace-skill-key-at (the (unsigned-byte 64) 0)
  