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