anchor.diff:            (setf (ldb (byte  8 40) n) (or (first children) 0)
                   (ldb (byte  8 48) n) (or (second children) 0)
                   (ldb (byte  8 56) n) sibling-total))
  -         (1 
  +         (1
             (setf (ldb (byte  8 40) n) (or (first children) 0)
                   (ldb (byte 16 48) n) sibling-total))
  -         (2 
  +         (2
             (setf (ldb (byte 24 40) n) sibling-total))
  -         (3 
  +         (3
             (setf (ldb (byte 24 40) n) (file-position (da-exts da)))
             (write-byte sibling-total (da-exts da))))
   
  
positive.code:     (output:with-output (node node-file :byte-width 8)
        (with-open-output-file (exts exts-file 'uint4)
          (let ((da (make-da :node node :exts exts)))
            (build-impl trie (node-allocator:make) da 
                        (new-node 0 trie)
                        (make-hash-table :test #'eq)
                        show-progress))))
  
negative.code:   (write-node-impl node da))
  
  (defmacro show-and-write-node (node da &key base)
    `(progn
       (incf #1=(da-done-count ,da))
       (when (and show-progress (zerop (mod #1# 100000)))
         (show ";  ~a nodes~%" #1#))
  