anchor.diff:                      |> Set.map buildResult
                  
                   let resPart2 =                                                                               
  -                    let nextLexeme =  parserState.lexer.Get(parserState.i)                        
  -                    if 
  -                        nextLexeme.name = "EOF"
  +                    let nextLexeme =  
  +                        try
  +                            parserState.lexer.Get(parserState.i)                        
  +                        with 
  +                        |_ -> {name = "eee";value = ""}
  +                    if  //false
  +                        nextLexeme.name = "eee"
                       then 
                           Set.empty
                       else
  
positive.code:                                                             let trace = 
                                                                  getTrace itm.state parserState.inpSymbol.name itm.state.position res.rItem.position
                                                                  @ res.rItem.sTrace                                                             
                                                              {stt with forest = [stt.forest @ res.rItem.forest |> node trace]
                                                                        sTrace = trace})
                                                          parserState.statesSet
                                          }
                                          |> 
                                              (*fun ps ->
                                                  if false//ps.inpSymbol.name = "s"
                                                  then buildRes ps.statesSet
                                                  else *)(climb()) tables //ps
                                          |> Set.union  buf)
                                  )
                                  Set.empty
  
negative.code:                                 i         = parserState.i + 1
                          }
                          |> (climb()) tables 
                          //|> Set.filter (fun res -> not (isFinaleState res.rItem))
                  let res = resPart1 + resPart2
                  printfn "\n parser result = %A" res
                  res)
  