anchor.diff:      | text::lines when text.StartsWith "> " ->
         let code = text.Substring 2
         fprintf wr "%s" (String.replicate (indentOf code) " ")
  -      printTokens wr id2items " " None "def" None item.Path None (tokenize code)
  +      printTokens wr id2items " " None "def" None path None (tokenize code)
         fprintf wr "\n"
         inPre lines
       | lines ->
  
positive.code:   and inCode esc i0 i = function
      | (text : string)::lines when i < text.Length ->
        if esc = text.[i] then
          printTokens wr id2items "&nbsp;" None "def" None item.Path None (tokenize (text.Substring (i0, i-i0)))
          fprintf wr "</code>"
          inPara (i+1) (text::lines)
        else
  
negative.code:   loop ts
  
  let printDesc wr item id2items (lines: list<string>) =
    let path =
      match (item.Path, item.Id) with
       | ([], Some id) -> [id]
       | (path, _) -> path
    let rec paras = function
      | (empty: string)::lines when "" = empty.Trim () ->
        paras lines
  