let to_json {name; parameters}: Yojson.Basic.json = `Assoc [ "name", `String name; "parameters", `Assoc (List.map parameters ~f:(fun (a, b) -> a, `String b)); ]