anchor.diff:  
   let (|Id|_|) ts =
     let rec loop is = function
  -   | (i, 0)::(".", 0)::ts when not (nonIdSet.Contains i) ->
  +   | (i, 0)::(".", 0)::ts when not ^ nonIdSet.Contains i ->
        loop (i::is) ts
  -   | (i, n)::ts when not (nonIdSet.Contains i) ->
  +   | (i, n)::ts when not ^ nonIdSet.Contains i ->
        Some (i, n, is, ts)
      | _ ->
        None
     loop [] ts
   
   let summarize s =
  -  tokenize s |> List.filter (function T"inline" -> false | _ -> true)
  +  tokenize s |> List.filter ^ function T"inline" -> false | _ -> true
   
   let indentOf (s: String) =
  -  let rec loop i = if i < s.Length && s.[i] = ' ' then loop (i+1) else i
  +  let rec loop i = if i < s.Length && s.[i] = ' ' then loop ^ i+1 else i
     loop 0
   
   let trim s = (indentOf s, s.Trim ())
  
positive.code: let escapeSpaces s = spaceRegex.Replace (s, "%20")
  
  let printTokens wr id2items space spaced inSection toSection linkId path kind ts =
    let linked = ref (Option.isNone linkId)
    let spaces n =
      if n = 0 then ""
      elif spaced then String.replicate n space
  
negative.code:     if deep then
        item.Body
        |> Seq.filter (isObsolete >> not)
        |> Seq.iter ^ printSummary wr id2items deep inSection toSection drop
      else
        if List.forall (fun item -> Option.isNone item.Id) item.Body then
          item.Body
          |> Seq.filter ^ fun item ->
               match item.Tokens with
                | T("{"|"}")::_ -> false
                | _ -> true
          |> Seq.iter ^ printSummary wr id2items false inSection toSection drop
      if spacing then
        fprintf wr "</span>"
  
  