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:     let mystemProc = createProcess path
      let reader = new StreamReader(mystemProc.StandardOutput.BaseStream, Encoding.UTF8)
  
      let getProcessOutput (proc:Process) (reader:StreamReader) text = 
          let buffer = Encoding.UTF8.GetBytes(text + "\r\n")
          proc.StandardInput.BaseStream.Write(buffer,0,buffer.Length)
          proc.StandardInput.BaseStream.Flush()
  