anchor.diff:  let path name = System.IO.Path.Combine(baseInputGraphsPath,name)
   
   let loadDotToQG gFile =
  -    let g = loadGraphFromDOT(path gFile)
  +    let g = loadGraphFromDOT gFile
       let qGraph = ParserInputGraph()
  -        //new AdjacencyGraph<int, TaggedEdge<_,_>>()
       let getTkn str =
           try
               Yard.Examples.MSParser.genLiteral str 0UL 0UL
  
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:         |> Seq.iter (fun (prods, gv) -> 
              printfn "conf# %i  prods: %A" (Seq.length gv) prods
              gv |> (fun s -> if Seq.length s > 5 then Seq.take 5 s else s) |> Seq.map fst |> Seq.iter (printfn "    %A"))
          defaultAstToDot ast (getResultFileName srcFilePath "ast_")
         
  let CreateEmptyResultDirectory = 
      if (System.IO.Directory.Exists(!resultDirectoryPath))
      then System.IO.Directory.Delete(!resultDirectoryPath, true)
      System.IO.Directory.CreateDirectory(!resultDirectoryPath)
          
  let ParseAllDirectory (directoryName:string) =
      resultDirectoryPath := directoryName + @"\results\"
      CreateEmptyResultDirectory |> ignore
      System.IO.Directory.GetFiles(directoryName,"*.dot")
      |> Array.iter Parse
  
  do 
      let inPath = ref @"..\..\tests\s2.dot"
      let parseDir = ref false
      let commandLineSpecs =
          ["-f", ArgType.String (fun s -> inPath := path s), "Input file."
           "-d", ArgType.String (fun s -> parseDir := true; inPath := s), "Input dir. Use for parse all files in specified directory."
           ] |> List.map (fun (shortcut, argtype, description) -> ArgInfo(shortcut, argtype, description))
      ArgParser.Parse commandLineSpecs
  