anchor.diff:    printTokens wr id2items " " false (Some "dec") "def" model.Id model.Path model.Kind model.Tokens
     fprintf wr "\n"
     model.Body
  -  |> Seq.filter (isObsolete >> not)
     |> Seq.iter ^ printSummary wr id2items true (Some "dec") "def" 0
     fprintf wr "</code></pre>\n"
     fprintf wr "<h2>Description</h2>\n"
  
positive.code:                         Indent = i
                          Tokens = tokens
                          Body = body}
              outside indent path (item::items) [] [] lines
           let tokens = summarize text
           match tokens with
            | T("namespace"|"module" as kind)::Id (id, _, path, []) ->
  
negative.code:   >> String.concat "-"
  
  let ignoredLine = Regex "^(|#.*|open .*|//|//[^/#].*)$"
  
  let isObsolete (item: Item) =
    item.Attr
    |> List.exists ^ List.exists (fst >> (=) "Obsolete")
  
  let rec itemize ls =
    let rec outside indent path items docs attrs = function
  