anchor.diff:     | "(" | ")" | "->" | "{" | "}" | ":" ->
        fprintf wr "<b>%s</b>" (asText elem)
      | _ ->
  -     fprintf wr "%s" (asText elem)    
  +     fprintf wr "%s" (asText elem)
   
   let printText wr path inSection toSection item =
     let linked = ref false
  
positive.code: 
  let (|Def|_|) (s: string) =
    let ss = summarize s
    ss
    |> function
     | "module"          ::name::_
     | "namespace"       ::name::_
     | "type"            ::name::_
  
negative.code:       fprintf wr "<a%shref=\"#%s:%s\">%s</a>" id toSection link text
      else
        printElem wr elem
    let rec loop space = function
       | "("::elem::")"::":"::elems ->
         if space then fprintf wr " "
         printElem wr "("
  