let bindSliderValueChangedTwoWayConverter<'destType> (slider:Slider) (reactiveProperty:ReactiveProperty<'destType>) (converter: DataConverter<'destType, float>) =

  let disposable1 = slider.ValueChanged |> Observable.map (fun (ea) -> (slider.Value))
					|> Observable.iter (fun value -> Debug.WriteLine("Slider:" + value.ToString()))
					|> Observable.subscribe (fun value -> reactiveProperty.Value <- converter.ConvertBack value)

  let disposable2 = reactiveProperty
			|> Observable.iter (fun value -> Debug.WriteLine("Prop:" + value.ToString()))
			|> Observable.subscribe (fun value -> slider.Value <- converter.Convert value)

  new CompositeDisposable([ disposable1; disposable2 ])