anchor.diff:                      then
                           for i = 0 to nodes.other.Length - 1 do
                               if needDo 
  -                            then 
  -                                f nodes.other.[i]
  +                            then f nodes.other.[i]
                               needDo <- needDo || nodes.other.[i] = nd
   
           /// <summary>
  
positive.code:             |> Seq.exists (fun range -> range = now)
  
          let rec handleFamily (family : OtherFamily) = 
              family.nodes.doForAll (fun node -> 
                  match node with
                  | :? OtherAST as ast -> 
                      
                      let famTokens = familyToTokens.[ast.first]
  
                      let interesting = familyToTokens.Values
                      interesting.ToString() |> ignore
                      
                      if List.exists (fun t -> containsRange t) famTokens
                      then handleFamily ast.first
                      
                      if ast.other <> null 
                      then
                          ast.other
                          |> Array.iter (fun fam ->
                              if List.exists (fun t -> containsRange t) familyToTokens.[fam]
                              then handleFamily fam
                          )
                  
                  | :? Terminal as t -> 
                      let isNewParent = not <| List.exists (fun fam -> fam = family) !parents
                      if containsRange t.TokenNumber && isNewParent
                      then
                          parents := family :: !parents
                          child := node
                  | :? Epsilon -> ()
                  | _ -> failwithf "Unexpected node type in OtherSppf: %s" <| child.GetType().ToString()
                  )
          handleFamily root.first
          !child, !parents
  
negative.code:                 incr cur
                  !cur
  
          use out = new StreamWriter (path : string)
          out.WriteLine("digraph AST {")
          
          let createNode num isAmbiguous isTerminal nodeType (str : string) =
  