anchor.diff:      (car chromosome-place)))
   
   ;;;; helpers
  -(defun make-chromosome (chromosome-length &optional (range *coords-range*) (straight-prob 0.1))
  +(defun make-chromosome (chromosome-length &optional (range *coords-range*) (straight-prob 1.0))
     "Chromosome length is the number of contours for a character. Each contour consists of three pairs of control point coordinates. Every contour is a straight line with probability straight-prob. A straight line is denoted by a zero second control point."
     ;;todo no magick numbers
     (let ((chromosome 0))
  
positive.code: 
  (defun crossover (parent1 parent2)
    "Parents are integers."
    (let* ((min-length (if (> (integer-length parent1) (integer-length parent2))
  			 (integer-length parent2)
  			 (integer-length parent1)))
  
negative.code: 
  (defvar *allele-size* 10)
  (defvar *coords-range* 1000)
  (defvar *main-loop* nil)
  
  (defclass font-app (base-app)
    ((font-loader :accessor font-loader)
  