anchor.diff:       do (when (> score current)
   	  (setf current score
   		index i))
  -     finally (return (values index current))))
  +     finally (if (< current 0)
  +		 (error "Negative score!!! ~a ~a" index current)
  +		 (return (values index current)))))
  
positive.code:     (setf (font-loader app) (zpb-ttf:open-font-loader #P"/Library/Fonts/Arial.ttf"))
      #+unix
      (setf (font-loader app) (zpb-ttf:open-font-loader #P"/usr/share/fonts/truetype/ttf-droid/DroidSansMono.ttf"))
      (setf (bukva app) "B")
  ;    (setf (bukva app) "Б")
      
      (main-loop app *worker-count*)
      (run app)))
  
  
negative.code:        do (setf scores
   		(loop for chromosome in population
   		   collect (evaluate (chromosome->coordinates chromosome) start control end)))
  
         do (multiple-value-bind (index score)
   	      (get-best-chromosome-index scores)
  
  	    (when (= score 0) ;;Yay we found the perfect match ;;TODO relax this
   	      (return))
  	    
  	    (let ((candidate 
  		   (loop for coords across (chromosome->coordinates (nth index  population))
  		      collect (coords->curve coords))))
  	    
  	      (push-queue candidate queue)))
  	 
         ;; selection
         do (let ((total-score (float (reduce '+ scores))))
  