anchor.diff:      chromosome))
   
   (defun chromosome->coordinates (chromosome)
  -  (let* ((contour-count (/ (ceiling (/ (integer-length chromosome) *allele-size*)) (* 3 2)))
  +  "Chromosome is a number representing a list of contours. Returns an array of contours. Each contour is a list of 3 x,y coordinates."
  +  (let* ((contour-count (ceiling (integer-length chromosome) (* *allele-size* 3 2)))
   	 (contours (make-array contour-count)))
       (loop for i below contour-count
          for j below (* contour-count 3 2) by (* 3 2)
  
positive.code: 
  (defclass font-app (base-app)
    ((font-loader :accessor font-loader)
     (bukva :accessor bukva)
     (candidate :accessor candidate :initform '())))
  
  (defmethod setup ((app font-app))
  
negative.code: 
  (defmethod exit ((app font-app))
    (zpb-ttf:close-font-loader (font-loader app)))
  
  (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
  