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