anchor.diff:                  if not !flag 
                   then
                       flag := parserSource.AccStates.[state]
  -            !flag
  +            !flag                    
   
           // if finish isn't accepting state then error
           if !isEnd && usedStates.Count > 0 && not <| isAcceptState() 
           then
               //recovery()
  -            makeReductions()
  +            makeReductions ()
               attachEdges()
   
           let lastTokens count =
  
positive.code:                 drawGSSDot = drawDot parserSource.TokenToNumber tokens parserSource.LeftSide vertices parserSource.NumToString parserSource.ErrorIndex
                  lastTokens = lastTokens
              }
  
          if not errorList.IsEmpty 
          then
              errorList <- List.rev errorList
              let tokenToString token = token |> parserSource.TokenToNumber |> parserSource.NumToString
              for i = 0 to errorList.Length-1 do ()
              
          if wasError 
          then
              erTok() 
              Error (!curInd, errors.ToArray() , "Parse Error", debugFuns (), new Dictionary<_,_>())
          else
              let root = ref None
              let addTreeTop res =
  
negative.code: 
          ignore <| addVertex [|startState, 0, None|]
          let inline trd (_,_,x) = x
          let makeReductions () =
              while reductions.Count > 0 do
                  let vertex, prod, pos, edgeOpt = reductions.Pop()
                  let nonTerm = parserSource.LeftSide.[prod]
  