anchor.diff:                             :type "svg"
                              :defaults log-dir)))
                   (draw-polygons-to-svg (field state) :filename file)))))
  +    (format t "Selected state with score ~,3F~%" (field-score best-state))
       (with-open-file
        (*standard-output* solution-file
                           :direction :output
                           :if-exists :supersede
                           :if-does-not-exist :create)
  -     (print-solution (field state) :matrix (adjustment-matrix state)))))
  +     (print-solution (field best-state) :matrix (adjustment-matrix state)))))
   
   (defmethod clone-state (_ (st game-state))
     st)
  
positive.code:                            log-dir)
    (let* ((root-state (read-task-state problem-file))
           (state root-state)
           (game :origami-solver)
           (iteration 0))
      (loop while (and (< (field-score state) 1)
  
negative.code:               (format t "No more actions found")
                (return))
              (setf state (next-state game state action))
              (when (> (field-score state)
                       (field-score best-state))
                (setf best-state state))
              (format t "Iteration ~A score ~,3F~%"
                      iteration (field-score state))
              (when log-dir
  