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:    asText (prefix + String.concat "." (List.rev (id::path)))
     |> Uri.EscapeDataString
  
  let printTokens wr id2items space inSection toSection linkId path kind ts =
    let linked = ref (Option.isNone linkId)
    let spaces n = String.replicate n space
    let rec loop = function
     | (k, n)::ts when keywordSet.Contains k ->
       if k = ":" || k = "->" then linked := true
  
negative.code:   and inCode esc i0 i = function
      | (text : string)::lines when i < text.Length ->
        if esc = text.[i] then
          printTokens wr id2items "&nbsp;" true 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;" true None "def" None item.Path None (tokenize (text.Substring (i0, i-i0)))
        fprintf wr "&nbsp;"
        inCode esc 0 0 lines
      | lines ->
  