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:                                             (mapcar #`,(- (second x1)) 
                                                      required-effects))
                                :satisfy-mask (gen-skill-mask (1+ n))
                                :n n)))
      (let ((counter 0))
        (emitter-mapcan input (x)
  
negative.code: 		      prelim-inv-key
  		      jewels-key)
  		     (split-env-satisfy-mask env))
  	       do (setf result (cons (make-keyed-jewel-set 
  	       			      :key jewels-key
  	       			      :set (mapcar (lambda (x) 
  	       					     (append x base-list))
  