let to_json {name; prior_probability; theta}: Yojson.Basic.json =
    `Assoc [
      "name", `String name;
      "prior_probability", `Float prior_probability;
      "theta", `Float theta;
    ]