anchor.diff:  let Tokenize (fstLexer : FST<_,_>) (actions : array<GraphTokenValue<_> -> _>) eofToken (inputGraph : Appr<_>) =    
       let inputFst = inputGraph.ToFST() 
       let inputFstLexer = FST<_,_>.Compos(inputFst, fstLexer) 
  +    inputFstLexer.PrintToDOT (@"..\..\Tests\CalcTestLexerk.dot", printSmbString)
       let parserInputGraph = Interpret inputFstLexer actions eofToken 
       let epsRes = EpsClosure.NfaToDfa parserInputGraph
       epsRes 
  
positive.code: open QuickGraph
  open YC.FST.FstApproximation
  
  
  type TokenEdge<'br when 'br:comparison>(s,e,t)=
      inherit TaggedEdge<int, char*Position<'br>>(s,e,t)
  
negative.code:         then final.Add edge.Source
          
      for v in final do         
          new ParserEdge<_>(v, inputFstLexer.FinalState.[0], Some eofToken) |> edgesParserGraph.Add |> ignore
  
      let res = new ParserInputGraph<_>(inputFstLexer.InitState.[0], inputFstLexer.FinalState.[0])
  