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