anchor.diff:      `(compact-super-jewel-set ,(expand expr))))
   
   (defmacro mnemonic-alambda (aug-args &body body)
  +  "This is an alambda which caches all the output whose input has been
  +  executed at least once."
     (let ((args (mapcar #'car aug-args))
   	(rngs (mapcar #'cadr aug-args)))
       (with-gensyms (cache)
  
positive.code: 			       ,@body)))))
  	 #'self)))))
    
  			
  (defun jewel-query-client (required-effects)
    (let* ((required-skill-ids (mapcar #`,(car x1) required-effects))
  	 (calc-fixed (mnemonic-alambda ((holes 4) (num 50))
  		       (if (= num 1)
  
negative.code:       (apply calc (decode-hole-sig hole-key)))))
  
  (defun dfs-jewel-query (required-skill-ids hole-alignment)
    "This is a naive alternative to the previous algorithm. It was
    orignally implemented for checking the correctness of the previous
    algorithm, but can be used in practice as well."
    (let (result)
      (labels ((align-+ (alignment-a alignment-b)
  	       (loop 
  