anchor.diff:  
   (defparameter *allele-size* 8)
   (defparameter *coords-range* 3000)
  -(defparameter *max-value* 100000)
  +(defparameter *max-value* 100000000000)
   (defparameter *worker-count* 10)
  +(defparameter *message-queue* nil)
   
   (defclass font-app (base-app)
     ((font-loader :accessor font-loader)
  
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 (when (> score current)
  	  (setf current score
  		index i))
       finally (if (< current 0)
  		 (error "Negative score!!! ~a ~a" index current)
  		 (return (values index current)))))
  