anchor.diff:  open System.Text
   open System.IO
   open Newtonsoft.Json.Linq
  +open System.Text.RegularExpressions
   
   type Defention(gr:string,lex:string) =
       member this.Gr = gr
  
positive.code:         action obj
  
      member this.Lemmatize (text:string) : WordDefention[] =
          lock lockObject (fun () -> getProcessOutput text mystemProc reader)
              |> JArray.Parse
              |> call (fun a -> a.ToObject<list<WordDefention>>())
              |> List.toArray
  
negative.code: type Lemmatizer (path: string) = 
      
      let lockObject = ref 4
      let cleanRegex = new Regex(@"[^\w\d-]", RegexOptions.Compiled ||| RegexOptions.IgnoreCase);
  
      let createStartInfo path =
          let startInfo = new ProcessStartInfo()
  