anchor.diff:    Indent = 0
     Tokens = []
     Body = []}
  +
  +let nonwordRegex = Regex "\\W+"
  +let asId =
  +  nonwordRegex.Split
  +  >> Array.filter ^ (<>) ""
  +  >> Array.map ^ fun s -> s.ToLower ()
  +  >> String.concat "-"
   
   let rec itemize ls =
     let rec outside indent path items docs attrs = function
  
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 "</code></pre>\n<pre><code class=\"fsharp hljs\">"
    else
  
negative.code:        elif text.StartsWith "///" then
           outside indent path items (text.Substring 3::docs) attrs lines
         elif text.StartsWith "//# " then
           let text = text.Substring 4
           let item = {Doc = [text]
                       Attr = []
                       Kind = Some "header"
                       Id = Some ^ asId text
                       Path = path
                       Indent = i
                       Tokens = []
                       Body = []}
  