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