anchor.diff:            | [] -> ()
             | id::idPath ->
               parts id idPath [(".", 0)]
  -            fprintf wr "<b>.</b>"
  +            fprintf wr "."
   
            let isUnique item =
              match item.Id with
  
positive.code:   let indent = max (item.Indent - drop) 0
    let prefix = String.replicate indent " "
    if item.Kind = Some "header" then
      fprintfn wr """%s<span class="h3">%s</span>""" prefix (List.head item.Doc |> asText)
    elif item.Kind = Some "spacer" then
      fprintf wr "</pre>\n<pre>"
    else
      let spacing = deep && (item.Kind = Some "module" || item.Kind = Some "type")
      if spacing then
  
negative.code:       fprintf wr "\n"
        inPre lines
      | lines ->
        fprintf wr "</code></pre>"
        paras lines
    and inPara i = function
      | (empty: string)::lines when i=0 && "" = empty.Trim () ->
        fprintf wr "</p>"
        paras lines
      | code::lines when i=0 && code.StartsWith "> " ->
        fprintf wr "</p>\n<pre><code class=\"fsharp\">"
        inPre (code::lines)
      | (text: string)::lines when i < text.Length ->
        match text.[i] with
         | '`' ->
           fprintf wr """<code class="fsharp">"""
           inCode text.[i] (i+1) (i+1) (text::lines)
         | c ->
           fprintf wr "%c" c
  