anchor.diff:  let serializeValue = function 
     | Value.String s -> JsonValue.String s 
     | Value.Bool b -> JsonValue.Boolean b
  -  | Value.Number n -> JsonValue.Number n
  +  | Value.Number n -> JsonValue.Float n
     | Value.Date d -> JsonValue.String (d.ToString "o")
   
   let serialize isPreview isSeries data = 
  
positive.code: type Value = 
    | Bool of bool
    | String of string
    | Number of decimal
    | Date of DateTimeOffset
  
  [<RequireQualifiedAccess>]
  
negative.code:       |> Seq.map (fun ((col, typ), value) -> 
          try 
            match typ with 
            | Number -> col, Value.Number(Double.Parse value)
            | Date null -> col, Value.Date(DateTimeOffset.Parse(value, ddmm))
            | Date c -> col, Value.Date(DateTimeOffset.Parse(value, c))
            | OneZero | Bool -> 
  