anchor.diff:       (-> (many1 (or verbatim-blank-line verbatim-line)) lines)
        (format nil "~{~&~a~}" (drop-trailing-blanks lines)))
   
  -    (verbatim-blank-line (try eol) #\Newline) ;; Final form not a parser.
  +    (verbatim-blank-line (try eol) #\Newline)
   
       (verbatim-line
        indentation
  
positive.code:      (or (many1 (try eol)) eod))
  
      (indentation
       (try (counted (- (state current) (state so-far)) " "))
       (setf (state so-far) (state current)))
  
      ((indented n p)
       (with-state ((current (+ current n)))
         (try (look-ahead (counted n " ")))
         (-> p)))
  
      (newline (setf (state so-far) 0) #.(string #\Newline))
  
      ((text-until p) (many1 (progn (not-followed-by p) (or escaped-char newline-char plain-char))))
  
      ((in-subdoc p1 p2)
       (if (> (state subdoc-level) 0) p1 p2))))
  
negative.code:      name)
  
      (tagged-text
       (-> tag-open n)
       (-> (if (member n subdocs)
               (subdoc-contents n)
               (simple-contents n))
        element)
       "}"
       element)
  
      ((subdoc-contents n)
       (incf subdoc-level)
       (-> (many1 element) elements)
       eod
       (decf subdoc-level)
       `(,n ,@elements))
  
      ((simple-contents name)
       (-> (many1 (or (text-until (tagged-or "}")) tagged-text)) contents)
  