anchor.diff:      (escaped-char
        (try (progn "\\" (one-of "\\{}*#-[]%|<"))))
   
  -    (newline-char
  +    (newline
        (not-followed-by blank)
  -     newline
  +     (-> newline-char nl)
        indentation
  -     #\Newline)
  +     nl)
   
       (plain-char
        (in-subdoc (none-of "}") any-char))
  
positive.code: 
      ((list-element marker)
       (try (progn (char marker) " "))
       (with-state ((current (+ current 2)))
         (-> (many1 (progn indentation (-> (or ordered-list unordered-list paragraph)))) contents)
         `(:li ,@contents)))
  
      ;; Whitespace and indentation handling
  
      (whitespace (many (one-of " \t")))
  
      (eol whitespace newline)
  
      (eod (in-subdoc end-of-subdoc eof))
  
  
negative.code: ;; Arguments to a parser get added to the inital state.
  
  (defparameter *p*
    '(defparser markup (subdocs &state (current 0) (so-far 0) (subdoc-levels 0))
  
      (document
       (optional modeline)
  