anchor.diff:                  Globals.spawn(location)
               else
                   Globals.spawn("mono", [| location |])
  -        child.stdin.setEncoding("utf-8");
  +        child.stdin.setEncoding( encoding);
   
           { t with State = State.On; PreviousState = t.State; Child = Some child }
   
  
positive.code:                                 c.stdout.removeAllListeners "data" |> ignore
                                  cb a
  
                          c.stdin.write( msg, "utf-8")
                          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
  
  module AutocompleteHandler =
  
negative.code:     type ParseResult = {Kind : string; Data : Error []}
  
  module AutocompleteService =
      let encoding = "utf-8"
  
      type State =
          | On
          | Off
  