anchor.diff:  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()
  
positive.code: open System.Text
  open System.IO
  open Newtonsoft.Json.Linq
  
  type Defention(gr:string,lex:string) =
      member this.Gr = gr
  
negative.code:         action obj
  
      member this.Lemmatize (text:string) : WordDefention[] =
          cleanRegex.Replace(text, " ")
              |> lock lockObject (fun () -> getProcessOutput mystemProc reader)
              |> JArray.Parse
              |> call (fun a -> a.ToObject<list<WordDefention>>())
              |> List.toArray
  