anchor.diff:    (let* ((ode-vars  (numerica-model-ode-vars nm))
            (allvars (query var))
            (klen-pos  nil))
  -    
  +    (format t "~&; Writing model block")
       (format file "MODEL ~A~%~
                     ~2TPARAMETER~%~
                       ~4Tk as ARRAY("
  
positive.code:           for i being the hash-values of kvars-table
            unless (eq kvar :last-index)
            do (setf (svref kvars (1- i)) kvar))
      (format file "~2TWITHIN m DO")
      (with-print-context t
        (loop for k across kvars 
              for i = 1 then (1+ i)
              for k-unit = k.dimension.(calculate-unit (numerica-model-base-units nm))
              for value = k.value
              if (math-expression-p value) ; calculate after other kvars are set
              collect (list i k) into dependent-vars
              else
  
negative.code:   (write-model-block nm file)
    (write-simulation-block nm file)
    
    (format t "~&The following file has been writted: ~A~%"
            (enough-namestring file)))
  
  ;;;
  ;;; helper functions which write numerica code to a stream:
  