anchor.diff:      type ParseResult = {Kind : string; Data : Error []}
   
   module AutocompleteService =
  +    let encoding = "utf-8"
  +
       type State =
           | On
           | Off
  
positive.code:                 Globals.spawn(location)
              else
                  Globals.spawn("mono", [| location |])
          child.stdin.setEncoding("utf-8");
  
          { t with State = State.On; PreviousState = t.State; Child = Some child }
  
  
negative.code:                                 c.stdout.removeAllListeners "data" |> ignore
                                  cb a
  
                          c.stdin.write( msg, encoding)
                          c.stdout.on ("data", unbox<Function> (action)) |> ignore)
          state
  
      let send (msg' : string) t =
          let msg = msg'.Replace("\uFEFF", "")
          Globals.console.log ("SEND: " + msg)
          t.Child |> Option.iter (fun c -> c.stdin.write( msg, encoding) |> ignore)
          t
  
  module AutocompleteHandler =
  