let to_json {name; use_reference_gtf}: Yojson.Basic.json = `Assoc [ "name", `String name; "use-reference-gtf", `Bool use_reference_gtf; ]