let fastq_or_gz       name       ~sample_name ?fragment_id ~r1 ?r2 () =     fun ~var_count ->       function_call name (         [           "sample_name", string sample_name;           "fragment_id", string (Option.value ~default:"NONE" fragment_id);           "R1", r1 ~var_count;         ]         @ Option.value_map ~default:[] ~f:(fun r2 ->             ["R2", r2 ~var_count]) r2       )