anchor.diff:    (:method ((net t-net)
               (t-set string)
               &key
  +              (max-segment-size 100000)
  +              outputs-first
  +              output-labels
                 (target-mse 0.08)
                 (max-iterations 1000000)
                 (report-frequency 1000)
  
positive.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)
  
negative.code:                           :if-exists :append
                            :if-does-not-exist :create)
      (write-log-entry stream
                       (format nil "~a ~as ~ai ~4$ < ~5$ > ~4$"
                               status elapsed iteration
                               (min-mse net) mse (max-mse net)))))
  
  (defun default-logger-function (net message)
    (with-open-file (stream (log-file net) :direction :output
  