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 path None (tokenize code)
  +      printTokens wr id2items " " true 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 path None (tokenize (text.Substring (i0, i-i0)))
          fprintf wr "</code>"
          inPara (i+1) (text::lines)
        else
          inCode esc i0 (i+1) (text::lines)
      | text::lines when i = text.Length ->
        printTokens wr id2items "&nbsp;" None "def" None item.Path None (tokenize (text.Substring (i0, i-i0)))
        fprintf wr "&nbsp;"
        inCode esc 0 0 lines
      | lines ->
  
negative.code:   fprintf wr "<h1>%s Library Reference</h1>\n" title
    fprintf wr "<h2>Synopsis</h2>\n"
    fprintf wr "<pre>"
    printTokens wr id2items " " false (Some "dec") "def" model.Id model.Path model.Kind model.Tokens
    fprintf wr "\n"
    model.Body
    |> Seq.filter (isObsolete >> not)
  