anchor.diff:  
   ;;; Insertion
   
  -(defun add-seqs (trie seqs)
  -  (mapcar #'(lambda (seq) (add-seq trie seq)) seqs))
  -
  -(defun add-seq (trie seq &optional (count 1))
  +(defun trie-add-seqs (trie seqs)
  +  (mapcar #'(lambda (seq) (trie-add-seq trie seq)) seqs))
  +
  +(defun trie-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."
  
positive.code:     
      ; Indent and write opening parens
      (format stream "~v@T" (* 2 depth))
      (write-char #\u28 #|Left Paren|# )
      
      ; Print key
      (cond
  
negative.code: (defun test-trie (&optional (lst *banana*))
    "Simple utility function to build a test trie."
    (let ((r (make-trie)))
      (trie-add-seqs r (mapcar #'(lambda (s) (string-downcase (string s))) lst))
      r))
  
  
  