anchor.diff:          }
   
   let filterRnaParsingResult (graph:BioParserInputGraph) lengthLimit res  =
  -    let hihtLenghtLimit = 100.0
  +    let hihtLenghtLimit = 500.0
       match res:ParseResult<ResultStruct> with
       | Success ast -> 
           failwith "Result is success but it is unexpected success"
  
positive.code:                         match msg with
                          | Data (i,graph) ->
                              try
                                  let g, s ,f = searchCfg.SearchWithoutSPPF graph searchCfg.StartNonterm |> filterRnaParsingResult graph searchCfg.LowLengthLimit
                                  processSubgraphs g s f 
                              with
  
negative.code: let searchMain path what agentsCount =
      let searchCfg = 
          match what with
          | TRNA -> tRNASearchConfig
          | R16S_H22_H23 -> r16s_H22_H23_SearchConfig
          | Shift_problem -> shift_problem_SearchConfig
  
      let graphs, longEdges = loadGraphFormFileToBioParserInputGraph path searchCfg.HightLengthLimit searchCfg.Tokenizer (GLL.tRNA.RNGLR_EOF 0)
  
      let graphs = 
          graphs.[1500..]
          //graphs.[5000..5050]
      searchInBioGraphs searchCfg graphs agentsCount
      |> printfn "%A"
      //searchInCloud graphs
  