anchor.diff:                  | Some x ->
                       let push = x
                       // Push to init state is impossible
  -                    if fst push <> 0 then
  +                    if push <> 0 then
                           pushes.Push (v, push)
                   | None -> ()
                   let arr = parserSource.ZeroReduces.[state].[!curNum]
  
positive.code:                 let edges = edges.[vertex]
                  let mutable count = -1
                  while i < edges.Count do
                      let k = frth edges.[i]
                      let mutable j = i+1
                      while j < edges.Count && frth edges.[j] = k do
                          j <- j + 1
                      i <- j
                      count <- count + 1
  
negative.code:             v
  
          ignore <| addVertex startState 0 None
          let inline fst2 (x,_) = x
          let inline snd2 (_,x) = x
          let inline trd (_,_,x) = x
          let inline trd4 (_,_,x,_) = x
          let inline frth (_,_,_,x) = x
  