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