anchor.diff:          let terminalNodes = new BlockResizeArray<Nodes>()
           let finalExtension = packToInt64 0 inputLength
           
  -        let findFamily prod (nodes : Nodes) extension : Family=
  +        let findFamily prod (nodes : Nodes) extension : Family =
               let mutable result = None
               if createdFamilies.[prod].ContainsKey extension
               then
  
positive.code:      member x.Equals(a,b) = Vertex.Equal a b
       member x.GetHashCode y = y.GetHashCode()
  
  
  type PreviousContexts =
      struct
  
negative.code:                 index
  
              condition := true
              let rule = getHighBits !currentLabel
              let position = getLowBits !currentLabel
              if Array.length parser.rules.[rule] = 0 
              then
                  currentR := getNodeT !currentIndex
  