anchor.diff:  //                stackSetListsArr.[v.Value] <- v.Key
               printInd 0 (Printf.StringFormat<_,_>(bindKW + " lists_%s = ")) name
               printArr gotoListsArr printerGotos
  -            printInd 0 (Printf.StringFormat<_,_>(bindKW + " %s = ")) "stackArrays"
  +//            printInd 0 (Printf.StringFormat<_,_>(bindKW + " %s = ")) "stackArrays"
   //            printArr stackSetListsArr printersStackSets
  -            printBrInd 0 (Printf.StringFormat<_,_>(bindKW + " %s = stackArrays |> Array.map Set.ofArray")) "stackSets"
  +//            printBrInd 0 (Printf.StringFormat<_,_>(bindKW + " %s = stackArrays |> Array.map Set.ofArray")) "stackSets"
   
               printBrInd 0 (Printf.StringFormat<_,_>(bindKW + " small_%s =")) name
               printInd 2 lBr
  
positive.code:     for i = 0 to grammar.rules.rulesCount-1 do
          rulesArr.[i] <- grammar.rules.rightSide i
  
      let dfaArr = Array.zeroCreate grammar.reverseRules.rulesCount
      for i = 0 to grammar.reverseRules.rulesCount - 1 do
          dfaArr.[i] <- grammar.reverseRules.dfaTable i
  
      let totalRulesNumberOfStates = rulesArr |> Array.sumBy (fun x -> x.numberOfStates)
      (*let rulesStart = Array.zeroCreate <| grammar.rules.rulesCount + 1
  
negative.code: 
          resultArrayCreationCodePrinter name
  
      let print2DArrListDfa lBr rBr sep (bindKW:string) printArr resultArrayCreationCodePrinter (arr : 'a list[,]) checker printer name =
          let iCount = arr.GetLength 0 - 1
          let jCount = arr.GetLength 1 - 1
  
          printInd 0 (Printf.StringFormat<_,_>(bindKW + " lists_%s = ")) name
          let lists = new Dictionary<_,_>()
          let next =
              let num = ref -1
              fun () -> incr num; !num
          for i = 0 to iCount do
              for j = 0 to jCount do
                  if checker arr.[i,j] && not <| lists.ContainsKey arr.[i,j] then
                      lists.Add (arr.[i,j], next())
          let listsArr = Array.zeroCreate lists.Count
          for v in lists do
              listsArr.[v.Value] <- v.Key
          printArr listsArr printer
          printBrInd 0 (Printf.StringFormat<_,_>(bindKW + " small_%s =")) name
          printInd 2 lBr
          let mutable next = 1000
          let mutable cur = 0
          let mutable firstI = true
          for i = 0 to iCount do
              let mutable firstJ = true
              let good = new ResizeArray<_>(symbolsLim)
              for j = 0 to jCount do
                      if checker arr.[i,j] 
                      then
                          good.Add j
              if good.Count > 0 
              then
                  if not firstI 
                  then print sep
                  else firstI <- false
  
                  print "%d" <| pack i good.Count
                  for v = 0 to good.Count - 1 do
                      let j = good.[v]
                      print sep
                      print "%d" <| pack j lists.[arr.[i,j]]
                      cur <- cur + 1
                      if cur > next then
                          next <- next + 1000
                          printBr ""
                          printInd 10 ""
          printBr rBr
          resultArrayCreationCodePrinter name (iCount + 1)
  
  
      let leftSide = Array.zeroCreate grammar.rules.rulesCount
      for i = 0 to grammar.rules.rulesCount-1 do
          leftSide.[i] <- grammar.rules.leftSide i
  