anchor.diff:            for i being the hash-values of kvars-table
             unless (eq kvar :last-index)
             do (setf (svref kvars (1- i)) kvar))
  -    (format t "~&; &Writing parameters")
  +    (format t "~&; Writing parameters")
       (format file "~2TWITHIN m DO")
       (with-print-context t
         (loop for k across kvars 
  
positive.code:                 ;; write comment
                  (if (numerica-model-ode-comments-p nm)
                      (b-format file "~%~4T# ~A = ~A " v rate)))
            collect
                  ;; write parts
                  (compute-and-write-parts rate) into eqns
            finally 
            (format file "~%~2TEQUATION~%")
            (loop for eqn in eqns
                  for e = 1 then (1+ e)
                  do (format file "~%~4T$c(~A) = ~:[0~;~{part~A~^+~}~];"
                             e eqn eqn)))
  
      ;; now, we've determine the actual # kvars ...
      ;; go back and scribble at klen-pos
      (let ((end (file-position file)))
        (file-position file klen-pos)
        (princ (numerica-model-kvar-count nm) file)
        (file-position file end))
      (format file "~%END~%~%"))))
  
  
  
negative.code:                        (subseq rate-str
                                 1 (1- (length rate-str)))
                       rate-str))))
               (write-functions (i rate)
                 (let ((rate-strs (split-rate-string-equally (rate-str-without-outer-parens rate))))                  
                   (princ #\.)
                   (loop for rate-str in rate-strs
                         for p = (incf npart)
                         collect p into parts
                         do (format file "~%~4Tpart(~S) = ~A;" p rate-str)
                         finally (format file "~%~4T$c(~A) = ~:[0~;~{part(~A)~^+~}~];" (1+ i) parts parts))))
               (scribble (obj pos)
                 (let ((end (file-position file)))
                   (file-position file pos)
                   (prin1 obj file)
                   (file-position file end))))
  
      (format t "~&; Writing model block")
      (format file "MODEL ~A~%~
  