anchor.diff:    (term
      indentation "% "
      (=> (many1 (or (text-until (or tag-open " %")) tagged-text)) `(:dt ,@_))
  -   " %" eol)
  +   " %" (or blank eol))
   
     (definition
      (=> (many1 (and indentation (! "% ") paragraph)) `(:dd ,@_)))
  
positive.code:    indentation element)
  
    (linkdef
     "[" (-> (text-until "]") name) "] <" (-> (text-until ">") url) ">"
     (or newline blank)
      `(:link_def (:link ,name) (:url ,url)))
  
  
negative.code:    indentation
     (or header
         section
         section-divider
         verbatim
         ordered-list
         unordered-list
         definition-list
         blockquote
         linkdef
         paragraph))
  
    (header
  