anchor.diff:                          (header-level item))))))
       (setf marks (nreverse marks))
       (concatenate 'list
  -                 (subseq raw-wiki start (or (car marks) end))
  +                 ;;(subseq raw-wiki start (or (car marks) end))
  +                 (make-paragraphs raw-wiki :start start :end (or (car marks) end))
                    (iter (for m on marks)
                          (collect (list* 'chapter
  -                                       (header-strim (nth (car m) raw-wiki))
  +                                       ;;(header-strim (nth (car m) raw-wiki))
  +                                       (header-strim (aref raw-wiki  (car m)))
                                          (make-chapter-tree raw-wiki
                                                             :start (1+ (first m))
                                                             :end (second m)))))))))
  
positive.code:   (:entry "\\*\\*(?=.*\\*\\*)")
    (:exit "\\*\\*"))
  
  ;; (define-mode emphasis 80
  ;;  (:allowed :formatting)
  ;;  (:not-allowed emphasis)
  ;;   (:entry "//(?=[^\x00]*[^:]//)")
  ;;   (:exit "//"))
  
  (define-mode underline (90 :formatting)
    (:allowed :formatting)
  
negative.code:   (:continue "\\n  "
               "\\n\\t"))
  
  ;;          "<code \\w*>(?=.*</code>)"
  (define-mode code (200 :protected)
    (:entry "<code[^\\n]*>(?=.*</code>)")
    (:exit "</code>"))
  
  (define-mode file (210 :protected)
  