anchor.diff:  
   [<EntryPoint>]
   let main argv = 
  -//    let parser = ArgumentParser.Create<CLIArguments>()
  -//    let args = parser.Parse argv
  -//    let appSetting = parser.ParseAppSettings (System.Reflection.Assembly.GetExecutingAssembly())
  -//    let agentsCount =
  -//        args.GetResult(<@Agents@>, defaultValue = appSetting.GetResult(<@Agents@>, defaultValue = 1))        
  -//    let inputGraphPath = 
  -//        args.GetResult <@Input@>
  -//        |> (fun s ->
  -//                System.IO.Path.Combine(System.IO.Path.GetDirectoryName s, System.IO.Path.GetFileNameWithoutExtension s))
  -//    searchTRNA inputGraphPath agentsCount
  -//    searchMain inputGraphPath R16S_H22_H23 agentsCount
  +    let parser = ArgumentParser.Create<CLIArguments>()
  +    let args = parser.Parse argv
  +    let appSetting = parser.ParseAppSettings (System.Reflection.Assembly.GetExecutingAssembly())
  +    let agentsCount =
  +        args.GetResult(<@Agents@>, defaultValue = appSetting.GetResult(<@Agents@>, defaultValue = 1))        
  +    let inputGraphPath = 
  +        args.GetResult <@Input@>
  +        |> (fun s ->
  +                System.IO.Path.Combine(System.IO.Path.GetDirectoryName s, System.IO.Path.GetFileNameWithoutExtension s))
  + //   searchTRNA inputGraphPath agentsCount
  +    searchMain inputGraphPath R16S_H22_H23 agentsCount
   //    let e1 = new BioParserEdge(0, 1, 2, [|0; 1|])
   //    let e2 = new BioParserEdge(1, 2, 2, [|3;4|])
   //    let e3 = new BioParserEdge(2, 3, 2, [|1; 6|])
  
positive.code: let searchInBioGraphs (searchCfg : SearchConfig) graphs agentsCount =
      let start = System.DateTime.Now
      let processSubgraphs (subgraphs:ResizeArray<_>) (startEdges : ResizeArray<_>[]) (finalEdges : ResizeArray<_>[]) =
          let parserInputGraphs = convertToParserInputGraph subgraphs startEdges finalEdges
          parserInputGraphs
          |> ResizeArray.iteri
              (fun i g ->
                  let r = searchCfg.SearchWithSPPF g 
                  match r : ParseResult<_> with
                      | Success t -> 
                          t.GetPath searchCfg.StartNonterm 
                          |> Array.iter (fun e -> e |> ResizeArray.iter (fun t -> printf "%A " t))  
                      | _ -> ()
              )
      ()
  
      let agent name  =
          MailboxProcessor.Start(fun inbox ->
  
negative.code: //    f.[0].Add e5
  //    let tmp = convertToParserInputGraph seqE s f
      
  //    let path = "D:/YC/YaccConstructor/Tests/bio/problem_with_shift_2/g"
  //    let inputGraphPath = System.IO.Path.Combine(System.IO.Path.GetDirectoryName path, System.IO.Path.GetFileNameWithoutExtension path)
  //    searchMain inputGraphPath Shift_problem 1
  //    //let parseBioGraph = 
      0
  