anchor.diff:       collect (list (map 'vector 'identity input)
                      (map 'vector 'identity output))))
   
  -(defun make-segment-file-names (file 
  +(defun make-segment-file-names (file
                                   file-line-count
                                   segment-line-count
                                   &optional (target-directory "/tmp"))
  
positive.code:   ((topology :reader topology :initarg :topology
               :initform (error ":topology required"))
     (output-labels :accessor output-labels :initarg :output-labels :initform nil)
     (learning-rate :accessor learning-rate :initarg :learning-rate :initform 0.3)
     (momentum :accessor momentum :initarg :momentum :initform 0.8)
     (wi :accessor wi :initform 0)
     (transfer-tag :accessor transfer-tag :initarg :transfer-tag :initform :logistic)
     (layers :accessor layers)
     (next-id :accessor next-id :initform 0)
     (min-mse :accessor min-mse :type real :initform 1000000.0)
  
negative.code: (defun generate-counting-data (n)
    (loop for a from 1 to n
       for digit = (random 10)
       for input-lit = (loop with places = nil
                    for b from 1 to digit
                    for place = (loop for x = (random 10)
                                   while (member x places)
  