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