anchor.diff:      }
       let allTokens = seq []
       let res =
  -        let g = loadDotToQG "s4.dot"
  +        let g = loadDotToQG path
           (new Yard.Generators.RNGLR.AbstractParser.Parser<_>()).Parse buildAstAbstract g
  -        //buildAstAbstract 
  -    //buildAst allTokens
  -    //printfn "Time for parse file %s = %A" path (System.DateTime.Now - start)
       res
   
   let p = new ProjInfo()
   let mutable counter = 1<id>
  +let resultDirectoryPath = ref @"../../result\"
  +
  +let getResultFileName (path : string) pref  = 
  +    !resultDirectoryPath + pref + path.Substring(path.LastIndexOf("\\") + 1)
   
   let Parse (srcFilePath:string) = 
       let StreamElement = new StreamReader(srcFilePath, System.Text.Encoding.UTF8)  
       let map = p.GetMap StreamElement
  -    //Array.iter (printfn "%A") map
  -    //Lexer.id <- counter
       p.AddLine counter map
       counter <- counter + 1<id>
  -    //Lexer.id <- from (ProjInfo)
       match justParse srcFilePath with
       | Yard.Generators.RNGLR.Parser.Error (num, tok, msg, dbg) ->
  -        //let coordinates = 
  -//            let x,y = tokenPos tok
  -//            let x = p.GetCoordinates x
  -//            let y = p.GetCoordinates y
  -//            sprintf "(%A,%A) - (%A,%A)" x.Line x.Column y.Line y.Column
           let data =
               let d = tokenData tok
               if isLiteral tok then ""
               else (d :?> SourceText).text
           let name = tok |> tokenToNumber |> numToString
           printfn "Error in file %s on position  on Token %s %s: %s" srcFilePath name data msg
  -        //dbg.lastTokens(10) |> printfn "%A"
  -        dbg.drawGSSDot @"..\..\stack.dot"
  +        dbg.drawGSSDot (getResultFileName srcFilePath "stack_")
       | Yard.Generators.RNGLR.Parser.Success ast ->
           let GC_Collect () = 
               GC.Collect()    
  
positive.code:             qGraph.AddVertex(int edg.Source.Id) |> ignore
              qGraph.AddVertex(int edg.Destination.Id) |> ignore
              qGraph.AddEdge(new ParserEdge<_>(int edg.Source.Id,int edg.Destination.Id, getTkn edg.Label)) |> ignore)
      //qGraph.AddVerticesAndEdge(new ParserEdge<_>(4,5, RNGLR_EOF(new SourceText("", new SourceRange(0UL,0UL))))) |> ignore
      qGraph
  //    let pGraph = 
  //    pGraph.AddVerticesAndEdgeRange(qGraph.Edges)
  
  let justParse (path:string) =
      use reader = new System.IO.StreamReader(path)
      let translateArgs = {
          tokenToRange = fun x -> 0,0
          zeroPosition = 0
  
negative.code:     !inPath
      |> if !parseDir
         then ParseAllDirectory
         else Parse