anchor.diff:     | Id (id, n, fullIdPath, ts)
          when Option.isSome (Map.tryFind id id2items)
            && (id <> "unit" || id = "unit" && not (!linked)) ->
  -     
  +
        let rec parts id idPath ts =
          if not (!linked) && linkId = Some id then
            linked := true
  
positive.code:               items
                |> filterIfNotUnique kindsFilter
                |> filterIfNotUnique pathFilter
                |> List.sortBy (fun item -> item.Kind)
  
           let items =
             match items with
  
negative.code:       match item.Doc with
         | [] -> ()
         | lines -> printDesc wr item id2items lines
        if item.Body |> List.exists ^ fun item -> List.isEmpty item.Doc |> not
        then item.Body
             |> Seq.iter ^ printDescription wr id2items
        fprintf wr "</div>\n"
  
  type Options = {
  