anchor.diff:      ;; write the parameters:
       (write-kvars nm file)
   
  -    (format t "~&; &Writing initial conditions")
  +    (format t "~&; Writing initial conditions")
       ;; write the initial conditions:
       (format file "~2TINITIAL~%~
                       ~4TWITHIN m DO")
  
positive.code: ;;;; This file is part of little b.
  
  ;;;; The MIT License
  
  
negative.code:       (file-position file klen-pos)
        (princ (numerica-model-kvar-count nm) file)
        (file-position file end))
      (format file "~%END~%~%"))))
  
  
  (defun compute-display-var-indicies (nm)
  