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