let fastq
      ~sample_name ?fragment_id ~r1 ?r2 () =
    input_value "fastq" [
      "sample_name", sample_name;
      "fragment_id", Option.value ~default:"NONE" fragment_id;
      "R1", r1;
      "R2", Option.value ~default:"NONE" r2;
    ]