anchor.diff:  
           // Converts Y value of a chart (defines the type too)
           let culture = System.Globalization.CultureInfo.InvariantCulture
  +
  +        let valueToDouble (x:value) = x.ToDouble(culture)
   
           open System.Collections.Specialized
           
  
positive.code:         /// <param name="Color">The color for the data.</param>
          /// <param name="XTitle">The title of the X-axis.</param>
          /// <param name="YTitle">The title of the Y-axis.</param>
          static member Column(data:IObservable<#seq<#key * #value>>,?Name,?Title,(* ?Labels, *) ?Color,?XTitle,?YTitle) = 
              Chart.Column(NotifySeq.ofObservableReplacing data,?Name=Name,?Title=Title(* ,?Labels=Labels *),?Color=Color,?XTitle=XTitle,?YTitle=YTitle)
  
          /// <summary>Uses a sequence of columns to compare values across categories.</summary>
          /// <param name="data">The data for the chart. Each observation adds a data element to the chart.</param>
  
negative.code:         static member Funnel(data,?Name,?Title,?Labels, ?Color,?XTitle,?YTitle) = 
              GenericChart.Create(mergeDataAndLabelsForY data Labels, fun () -> FunnelChart () )
               |> Helpers.ApplyStyles(?Name=Name,?Title=Title,?Color=Color,?AxisXTitle=XTitle,?AxisYTitle=YTitle)
  
          /// <summary>Generates a Histogram with reasonable defaults.</summary>
          /// <param name="data">The data for the chart.</param>
          /// <param name="Name">The name of the data set.</param>
          /// <param name="Title">The title of the chart.</param>
          /// <param name="Labels">The labels that match the data.</param>
          /// <param name="Color">The color for the data.</param>
          /// <param name="XTitle">The title of the X-axis.</param>
          /// <param name="YTitle">The title of the Y-axis.</param>
          static member Histogram(data:seq<#value>,?Name,?Title,?Color,?XTitle,?YTitle, ?LowerBound, ?UpperBound, ?Intervals) = 
              let data' = data |> Seq.map valueToDouble
              let lowerBound = match LowerBound with
                              | Some LowerBound -> LowerBound
                              | _ -> Seq.min data
              let upperBound = match UpperBound with
                              | Some UpperBound -> UpperBound
                              | _ -> Seq.max data
              let intervals = match Intervals with
                              | Some Intervals -> Intervals
                              | _ -> 30. // corresponds to what ggplot does
              let data'' = (binData data' lowerBound upperBound intervals) |> Seq.map (fun b -> b.Count)
              let labels = (binData data' lowerBound upperBound intervals) |> Seq.map (fun b -> b.LowerBound.ToString())
              Chart.Column(data'',?Name=Name,?Title=Title,?Labels=Some labels, ?Color=Color,?XTitle=XTitle,?YTitle=YTitle, ?ColumnWidth=Some 0.05)
  
  
          /// <summary>Displays a series of connecting vertical lines where the thickness and direction of the lines are dependent on the action of the price value.</summary>
          /// <param name="data">The data for the chart.</param>
  