anchor.diff:  (in-package :bukvonesis)
   
   (defparameter *population* '())
  +(defparameter *scores* '())
   (defparameter *allele-size* 10)
   
   (defclass font-app (base-app)
     ((font-loader :accessor font-loader)
      (bukva :accessor bukva :writer (setf bukva))
  -   (contours :accessor contours)
  +   (glyph :accessor glyph)
      (candidate :accessor candidate :initform '())))
   
   (defmethod setup ((app font-app))
  
positive.code: 
  (defun (setf bukva) (bukva app)
    (setf (slot-value app 'bukva) bukva)
    (setf (slot-value app 'contours) 
  	(zpb-ttf:contours (zpb-ttf:find-glyph (aref (bukva app) 0) (font-loader app))))
    (break "~a" (contours app)))
  
  (defun start ()
    ;;setup drawing window
  
negative.code: 				  (third candidate) (fourth candidate)))
      (incf score (distance-squared (zpb-ttf:x end) (zpb-ttf:y end)
  				  (fifth candidate) (sixth candidate)))
      (when (not (= score 0))
        (setf score (/ score 3)))
  
      score))
  
  
  (defun distance-squared (p1-x p1-y p2-x p2-y)
  