let sample_name =     function     | `Fastq f -> f#product#escaped_sample_name     | `Bam (b, _) -> b#product#escaped_sample_name