open XPlot.GoogleCharts

let data =
    [
        "Acrocanthosaurus (top-spined lizard)", 12.2
        "Albertosaurus (Alberta lizard)", 9.1
        "Baryonyx (heavy claws)", 9.1
        "Ceratosaurus (horned lizard)", 6.1
        "Coelophysis (hollow form)", 2.7
        "Dromicelomimus (emu mimic)", 3.4
        "Mamenchisaurus (Mamenchi lizard)", 21.0
        "Megalosaurus (big lizard)", 7.9
        "Microvenator (small hunter)", 1.2
        "Oviraptor (egg robber)", 1.5
        "Sauronithoides (narrow-clawed lizard)", 2.0
        "Seismosaurus (tremor lizard)", 45.7
        "Supersaurus (super lizard)", 30.5
        "Ultrasaurus (ultra lizard)", 30.5
        "Velociraptor (swift robber)", 1.8
    ]

let options = Options(title = "Lengths of dinosaurs, in meters")

let chart =
    data
    |> Chart.Histogram
    |> Chart.WithOptions options
    |> Chart.WithLabel "Length"

namespace XPlot

namespace XPlot.GoogleCharts

val data : (string * float) list

val options : Options

Multiple items
type Options =
  new : unit -> Options
  member ShouldSerializeaggregationTarget : unit -> bool
  member ShouldSerializeallValuesSuffix : unit -> bool
  member ShouldSerializeallowHtml : unit -> bool
  member ShouldSerializealternatingRowStyle : unit -> bool
  member ShouldSerializeanimation : unit -> bool
  member ShouldSerializeannotations : unit -> bool
  member ShouldSerializeannotationsWidth : unit -> bool
  member ShouldSerializeareaOpacity : unit -> bool
  member ShouldSerializeavoidOverlappingGridLines : unit -> bool
  ...

--------------------
new : unit -> Options

val chart : GoogleChart

type Chart =
  static member Annotation : data:seq<DateTime * #value * string * string> * ?Labels:seq<string> * ?Options:Options -> GoogleChart + 1 overload
  static member Area : data:seq<#value> * ?Labels:seq<string> * ?Options:Options -> GoogleChart + 2 overloads
  static member Bar : data:seq<#value> * ?Labels:seq<string> * ?Options:Options -> GoogleChart + 2 overloads
  static member Bubble : data:seq<string * #value * #value> * ?Labels:seq<string> * ?Options:Options -> GoogleChart + 2 overloads
  static member Calendar : data:seq<DateTime * #value> * ?Labels:seq<string> * ?Options:Options -> GoogleChart
  static member Candlestick : data:seq<#key * #value * #value * #value * #value> * ?Labels:seq<string> * ?Options:Options -> GoogleChart + 1 overload
  static member Column : data:seq<#value> * ?Labels:seq<string> * ?Options:Options -> GoogleChart + 2 overloads
  static member Combo : data:seq<#seq<'K * 'V>> * ?Labels:seq<string> * ?Options:Options -> GoogleChart (requires 'K :> key and 'V :> value)
  static member private Create : data:seq<#seq<'T>> -> labels:seq<string> option -> options:Options option -> chartType:ChartGallery -> datumNew:('T -> Datum) -> GoogleChart
  static member private Create' : data:seq<#value> -> labels:seq<string> option -> options:Options option -> chartType:ChartGallery -> GoogleChart
  ...

static member Chart.Histogram : data:seq<string * #value> * ?Labels:seq<string> * ?Options:Options -> GoogleChart

static member Chart.WithOptions : options:Options -> chart:GoogleChart -> GoogleChart

static member Chart.WithLabel : label:string -> chart:GoogleChart -> GoogleChart

member GoogleChart.GetHtml : unit -> string