let read_1_file_node (fq : fastq_reads workflow_node) =     let product = fq#product#r1 in     workflow_node product       ~name:(sprintf "READ1 of %s-%s"                fq#product#sample_name                fq#product#fragment_id_forced)       ~equivalence:`None       ~edges:[depends_on fq]