anchor.diff:        (unless (leafp branch)
           (format stream "~%") ; (write-char #\Newline)
           (bprint-trie branch stream (+ 1 depth) compact))
  -      (write-char #\u29 #|Right Paren|# ))))
  -
  -
  -
  +      (write-char #\) #|Right Paren|#))))
  +
  +
  +
  
positive.code: 
  ;;; Insertion
  
  (defun add-seqs (trie seqs)
    (mapcar #'(lambda (seq) (add-seq trie seq)) seqs))
  
  (defun add-seq (trie seq &optional (count 1))
    "Add a branch to the trie count times. Modifies trie in-place.
    If branch already exists, increase it’s width.
    A count below one is changed to one."
  
negative.code: ;;;   More information about tries:
  ;;;   http://en.wikipedia.org/wiki/Trie
  ;;;
  
  (in-package #:twist)
  
  (setq *print-pretty* t)
  (setq *print-circle* t)
  