anchor.diff:                                  c.stdout.removeAllListeners "data" |> ignore
                                   cb a
   
  -                        c.stdin.write( msg, "utf-8")
  +                        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, "utf-8") |> ignore)
  +        t.Child |> Option.iter (fun c -> c.stdin.write( msg, encoding) |> ignore)
           t
   
   module AutocompleteHandler =
  
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:     type ParseResult = {Kind : string; Data : Error []}
  
  module AutocompleteService =
      let encoding = "utf-8"
  
      type State =
          | On
          | Off
  